fourmolu-0.20.0.0: data/examples/declaration/value/function/do-single-line-with-case-out.hs

doGuessing :: (Ord t, Read t) => t -> IO ()
doGuessing num = do putStrLn "Enter your guess:"; guess <- getLine; case compare (read guess) num of { LT -> do { putStrLn "Too low!"; doGuessing num }; GT -> do { putStrLn "Too high!"; doGuessing num }; EQ -> putStrLn "You win!" }