1 files changed, 2 insertions, 2 deletions
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 ++ " ")