From d0992536ff338d8ec393b286a0da9979efc729d4 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 28 Nov 2020 13:06:26 -0500
Subject: Lint fixes

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

(limited to 'Biz/Pie.hs')

diff --git a/Biz/Pie.hs b/Biz/Pie.hs
index 8c8989d..d414a12 100644
--- a/Biz/Pie.hs
+++ b/Biz/Pie.hs
@@ -146,13 +146,13 @@ move mov form = case mov of
       mostImprovement <- parseText </ question "What most improved your primary metric?"
       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)}
+      return <| form {roll = BuildSprint {..} : roll form}
   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)"
-      return <| form {roll = UserFeedback {..} : (roll form)}
+      return <| form {roll = UserFeedback {..} : roll form}
 
 question :: String -> Haskeline.InputT IO String
 question q = Maybe.fromJust </ (Haskeline.getInputLine <| q ++ " ")
-- 
cgit v1.2.3