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

processPair :: Maybe Int -> Maybe String -> IO ()
processPair x y = do case x of { Just n -> print n; Nothing -> putStrLn "No number" }; case y of { Just s -> putStrLn s; Nothing -> putStrLn "No string" }