add branching.hs output

Author: chris-martin

branching.hs

@@ -1,12 +1,9 @@
 import Data.Time
 
 timeNow now =
-  case
-  (todHour (localTimeOfDay (zonedTimeToLocalTime now)) < 12)
-  of
-      True  -> putStrLn "It's before noon"
-      False -> putStrLn "It's after noon"
-
+  case todHour (localTimeOfDay (zonedTimeToLocalTime now)) < 12 of
+    True  -> putStrLn "It's before noon"
+    False -> putStrLn "It's after noon"
 
 data ServicePlan = Free | Monthly | Annual
 
@@ -16,29 +13,21 @@ billAmount plan =
     Monthly -> 5
     Annual  -> billAmount Monthly * 12
 
-
 writeNumber i =
   case i of
     1 -> "one"
     2 -> "two"
     3 -> "three"
     _ -> "unknown number."
 
-
 main =
   do
     now <- getZonedTime
     timeNow now
 
     let plan = Free
-    putStrLn
-      ("Customer owes " ++ (show (billAmount plan)) ++ " dollars.")
+    putStrLn ("Customer owes " ++ show (billAmount plan)
+              ++ " dollars.")
 
     let i = 2
-    putStrLn
-      ("Write " ++ show i ++ " as " ++ (writeNumber i))
-
-
-
-
-
+    putStrLn ("Write " ++ show i ++ " as " ++ (writeNumber i))

outputs/branching.txt

@@ -0,0 +1,3 @@
+It's ... noon
+Customer owes 0 dollars.
+Write 2 as two

tools/outputs.nix

@@ -21,6 +21,7 @@ let
 in
 
   linkFarm "haskell-phrasebook-outputs" [
+    (run' "branching.txt" ../branching.hs { sed = ["s!^It's .* noon$!It's ... noon!"]; })
     (run "common-types.txt" ../common-types.hs)
     (run "for-loops.txt" ../for-loops.hs)
     (run "hashing.txt" ../hashing.hs)