path: root/testsuite/tests/ghc-regress/parser/should_compile/DoAndIfThenElse.hs

{-# LANGUAGE DoAndIfThenElse #-}

module DoAndIfThenElse where

foo :: IO ()
foo = do if True
         then return ()
         else return ()