diff options
Diffstat (limited to 'testsuite/tests/mdo/should_compile/mdo004.hs')
| -rw-r--r-- | testsuite/tests/mdo/should_compile/mdo004.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/mdo/should_compile/mdo004.hs b/testsuite/tests/mdo/should_compile/mdo004.hs index 544ee6cc66..fe405b882b 100644 --- a/testsuite/tests/mdo/should_compile/mdo004.hs +++ b/testsuite/tests/mdo/should_compile/mdo004.hs @@ -1,17 +1,17 @@ {-# OPTIONS -XRecursiveDo #-} --- test let bindings, polymorphism is ok provided they are not +-- test let bindings, polymorphism is ok provided they are not -- isolated in a recursive segment -- NB. this is not what Hugs does! module Main (main) where -import Control.Monad.Fix +import Control.Monad.Fix t :: IO (Int, Int) t = mdo let l [] = 0 l (x:xs) = 1 + l xs - return (l "1", l [1,2,3]) + return (l "1", l [1,2,3]) main :: IO () main = t >>= print |