testsuite/tests/mdo/should_fail/mdofail005.hs


1
2
3
4
5
6
7
8
9
10
11
12


-- use of mdo requires an extension,
-- so let's try not enabling it

module Main (main) where

import Control.Monad.Fix

main :: IO ()
main = mdo x <- return (1:x)
	   return ()