app/Task/CLI.hs warning: [-Wmissing-signatures]

[BebeSparkelSparkel]

Perhaps just put under where or add signature.

app/Task/CLI.hs:45:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      editTask :: FilePath
                  -> ProgramT
                       (Annotated annotation (Arg "task-name" String) & Raw) IO ()
   |
45 | editTask tasksFilePath = annotated $ arg @"task-name" $ \taskName -> raw 
   | ^^^^^^^^

app/Task/CLI.hs:46:54: warning: [-Wunused-matches]
    Defined but not used: `task'
   |
46 |   $ withTask tasksFilePath taskName $ \Context{home} task -> callProcess "vim" [home ++ "/" <> tasksFilePath <> "/" ++ taskName ++ ".task"]
   |                                                      ^^^^

app/Task/CLI.hs:48:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      newTask :: FilePath
                 -> ProgramT
                      (Annotated annotation (Arg "task-name" String) & Raw) IO ()
   |
48 | newTask tasksFilePath = annotated $ arg @"task-name" $ \taskName -> raw $ do
   | ^^^^^^^

app/Task/CLI.hs:58:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      closeTask :: FilePath
                   -> ProgramT
                        (Annotated annotation (Arg "task-name" String) & Raw) IO ()
   |
58 | closeTask tasksFilePath = annotated $ arg @"task-name" $ \taskName -> raw 
   | ^^^^^^^^^

app/Task/CLI.hs:59:54: warning: [-Wunused-matches]
    Defined but not used: `tasks'
   |
59 |   $ withTask tasksFilePath taskName $ \Context{home, tasks} mtask ->
   |                                                      ^^^^^

app/Task/CLI.hs:67:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      listTasks :: FilePath -> ProgramT Raw IO ()
   |
67 | listTasks tasksFilePath = raw $ do
   | ^^^^^^^^^

app/Task/CLI.hs:71:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      listPriorities :: FilePath -> ProgramT Raw IO ()
   |
71 | listPriorities tasksFilePath = raw $ do
   | ^^^^^^^^^^^^^^