feat(task): remove horizontal bars from output

1 files changed, 7 insertions, 7 deletions

diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 98ef6f9..228ab05 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -13,7 +13,7 @@ import qualified Data.ByteString.Lazy.Char8 as BLC
 import qualified Data.List as List
 import qualified Data.Text as T
 import qualified Data.Text.IO as TIO
-import Data.Time (UTCTime, diffTimeToPicoseconds, getCurrentTime, utctDayTime, utctDay)
+import Data.Time (UTCTime, diffTimeToPicoseconds, getCurrentTime, utctDay, utctDayTime)
 import Data.Time.Calendar (toModifiedJulianDay)
 import GHC.Generics ()
 import System.Directory (createDirectoryIfMissing, doesFileExist)
@@ -444,9 +444,9 @@ printTask t = do
 showTaskDetailed :: Task -> IO ()
 showTaskDetailed t = do
   tasks <- loadTasks
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   putText <| "Task: " <> taskId t
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   putText <| "Title:      " <> taskTitle t
   putText <| "Type:       " <> T.pack (show (taskType t))
   putText <| "Status:     " <> T.pack (show (taskStatus t))
@@ -475,7 +475,7 @@ showTaskDetailed t = do
     putText "Dependencies:"
     traverse_ printDependency (taskDependencies t)
 
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   where
     priorityDesc = case taskPriority t of
       P0 -> " (Critical)"
@@ -558,9 +558,9 @@ getTaskStats = do
 showTaskStats :: IO ()
 showTaskStats = do
   stats <- getTaskStats
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   putText "Task Statistics"
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   putText <| "Total tasks:       " <> T.pack (show (totalTasks stats))
   putText <| "  Open:            " <> T.pack (show (openTasks stats))
   putText <| "  In Progress:     " <> T.pack (show (inProgressTasks stats))
@@ -578,7 +578,7 @@ showTaskStats = do
     putText ""
     putText "By Namespace:"
     traverse_ printNamespace (tasksByNamespace stats)
-  putText "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"
+  putText ""
   where
     printPriority (p, count) =
       let label = case p of