From 27e609910cbf61f792b857181b60d42ca8fdf9be Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 28 Nov 2020 09:25:14 -0500
Subject: Ormolu formatting
---
Biz/Pie.hs | 48 ++++++++++++++++++++++++++----------------------
1 file changed, 26 insertions(+), 22 deletions(-)
(limited to 'Biz')
diff --git a/Biz/Pie.hs b/Biz/Pie.hs
index 409f14f..8c8989d 100644
--- a/Biz/Pie.hs
+++ b/Biz/Pie.hs
@@ -103,11 +103,13 @@ formFile :: String -> FilePath
formFile ns = ns ++ ".pie"
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
- Just x -> return x
+loadForm ns =
+ Directory.doesFileExist file >>= \case
+ False -> touch file >> return mempty
+ True ->
+ Aeson.decodeFileStrict file >>= \case
+ Nothing -> panic <| Text.pack <| "could not decode: " ++ file
+ Just x -> return x
where
file = formFile ns
touch f = writeFile f ""
@@ -132,23 +134,25 @@ move mov form = case mov of
Exit.ExitFailure _ ->
Process.callProcess "git" ["switch", "-c", branch]
>> return form
- Update -> Haskeline.runInputT Haskeline.defaultSettings <| do
- timestamp <- liftIO Clock.getCurrentTime
- onTrack <- parseBool </ question "Are you on track?"
- isLaunched <- parseBool </ question "Are you launched?"
- weeksUntilLaunch <- parseInt </ question "How many weeks to launch?"
- usersTalkedWith <- parseInt </ question "Haw many (prospective) users have you talked to in the last week?"
- learnings <- parseText </ question "What have you learned from them?"
- morale <- parseInt </ question "On a scale of 1-10, what is your morale?"
- 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)}
- 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)}
+ Update ->
+ Haskeline.runInputT Haskeline.defaultSettings <| do
+ timestamp <- liftIO Clock.getCurrentTime
+ onTrack <- parseBool </ question "Are you on track?"
+ isLaunched <- parseBool </ question "Are you launched?"
+ weeksUntilLaunch <- parseInt </ question "How many weeks to launch?"
+ usersTalkedWith <- parseInt </ question "Haw many (prospective) users have you talked to in the last week?"
+ learnings <- parseText </ question "What have you learned from them?"
+ morale <- parseInt </ question "On a scale of 1-10, what is your morale?"
+ 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)}
+ 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)}
question :: String -> Haskeline.InputT IO String
question q = Maybe.fromJust </ (Haskeline.getInputLine <| q ++ " ")
--
cgit v1.2.3