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

checkValue :: Int -> IO ()
checkValue n = do putStr "Value is: "; case () of { _ | n < 0 -> putStrLn "negative" | n == 0 -> putStrLn "zero" | otherwise -> putStrLn "positive" }