From 36021097e17ab1cfa971564cb70128d704e88f2d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 19 Oct 2020 17:04:16 -0400
Subject: Remove $ from Alpha

---
 Biz/Pie.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Biz/Pie.hs')

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)"
-- 
cgit v1.2.3