fourmolu-0.20.0.0: data/examples/declaration/value/function/do-single-line-with-case.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!"}}