diff options
| -rw-r--r-- | Omni/Task/Core.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs index 63bc533..ca9345f 100644 --- a/Omni/Task/Core.hs +++ b/Omni/Task/Core.hs @@ -834,9 +834,7 @@ showTaskDetailed :: Task -> IO () showTaskDetailed t = do tasks <- loadTasks putText "" - putText <| "Task: " <> taskId t - putText "" - putText <| "Title: " <> taskTitle t + putText <| "Title: " <> taskTitle t <> " (ID: " <> taskId t <> ")" putText <| "Type: " <> T.pack (show (taskType t)) putText <| "Status: " <> T.pack (show (taskStatus t)) putText <| "Priority: " <> T.pack (show (taskPriority t)) <> priorityDesc |