summaryrefslogtreecommitdiff
path: root/Omni
diff options
context:
space:
mode:
Diffstat (limited to 'Omni')
-rw-r--r--Omni/Task/Core.hs14
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