Remove $ from Alpha

1 files changed, 3 insertions, 3 deletions

diff --git a/Biz/Pie.hs b/Biz/Pie.hs
index 3823db3..7e1c19e 100644
--- a/Biz/Pie.hs
+++ b/Biz/Pie.hs
@@ -97,7 +97,7 @@ loadForm :: Namespace -> IO Form
 loadForm ns = Directory.doesFileExist file >>= \case
   False -> touch file >> return mempty
   True -> Aeson.decodeFileStrict file >>= \case
-    Nothing -> panic $ Text.pack $ "could not decode: " ++ file
+    Nothing -> panic <| Text.pack <| "could not decode: " ++ file
     Just x -> return x
   where
     file = formFile ns
@@ -123,7 +123,7 @@ move mov form = case mov of
             Exit.ExitFailure _ ->
               Process.callProcess "git" ["switch", "-c", branch]
           >> return form
-  Update -> Haskeline.runInputT Haskeline.defaultSettings $ do
+  Update -> Haskeline.runInputT Haskeline.defaultSettings <| do
     timestamp <- liftIO Clock.getCurrentTime
     onTrack <- parseBool </ question "Are you on track?"
     isLaunched <- parseBool </ question "Are you launched?"
@@ -135,7 +135,7 @@ move mov form = case mov of
     biggestObstacle <- parseText </ question "What is your biggest obstacle?"
     goals <- parseText </ question "What are your top 1-3 goals for next week?"
     return <| form {roll = BuildSprint {..} : (roll form)}
-  Feedback -> Haskeline.runInputT Haskeline.defaultSettings $ do
+  Feedback -> Haskeline.runInputT Haskeline.defaultSettings <| do
     timestamp <- liftIO Clock.getCurrentTime
     user <- parseText </ question "User?"
     howDisappointed <- parseDisappointment </ question "How disappointed? (1=very, 2=somewhat, 3=not)"