ghc-exactprint-0.2: tests/examples/BCase.hs

main =
 case 1 > 10 of
   True  -> do putStrLn "hello"
               putStrLn "there"
   False -> do putStrLn "blah"
               putStrLn "blah"