linting fixes and cleanup

1 files changed, 7 insertions, 7 deletions

diff --git a/Biz/Pie.hs b/Biz/Pie.hs
index d3fca5f..7df794f 100644
--- a/Biz/Pie.hs
+++ b/Biz/Pie.hs
@@ -70,18 +70,18 @@ main = do
         addCommand
           "new"
           "start new a weekly sprint"
-          (const . move New)
+          (const <. move New)
           (pure mempty)
         addCommand
           "update"
           "submit weekly update for a namespace"
-          (move . Update)
-          (optNamespace)
+          (move <. Update)
+          optNamespace
         addCommand
           "feedback"
           "submit user feedback for a namespace"
-          (move . Feedback)
-          (optNamespace)
+          (move <. Feedback)
+          optNamespace
   cwd <- Directory.getCurrentDirectory
   root <- Env.getEnv "BIZ_ROOT"
   let fullNamespace =
@@ -101,7 +101,7 @@ optNamespace =
     <> short 'n'
     <> value "Devalloc"
 
-data Form = Form {roll :: [Entry]}
+newtype Form = Form {roll :: [Entry]}
   deriving (Generic, Aeson.ToJSON, Aeson.FromJSON, Show)
 
 instance Monoid Form where
@@ -136,7 +136,7 @@ data Move
 move :: Move -> Form -> IO Form
 move mov form = case mov of
   New -> do
-    week <- Time.getCurrentTime >>= return . Time.formatTime Time.defaultTimeLocale "%V"
+    week <- Time.getCurrentTime >>= return <. Time.formatTime Time.defaultTimeLocale "%V"
     let branch = "sprint-" <> week
     proc <- Process.spawnProcess "git" ["show-ref", branch]
     Process.waitForProcess proc >>= \case