ormolu-0.8.1.1: data/examples/declaration/value/function/do-single-line-nested-case.hs

nestedDo :: Either String Int -> IO ()
nestedDo e = do {putStr "Start: "; case e of {Left s -> do {putStr "Error: "; putStrLn s}; Right n -> do {putStr "Value: "; print n}}; putStrLn "End"}