blob: 352afe2abe574d693ec96d7ce33f1c8ae29e8faf (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# OPTIONS_GHC -XArrows -XRecursiveDo#-}
-- Test Trac #2111
module Foo where
foo = do { rec { x <- undefined -< x }; undefined -< x }
bar1 = do { rec { x <- return ('a':x); }; putStrLn (take 20 x) }
bar2 = mdo { rec { x <- return ('a':x); }; putStrLn (take 20 x) }
|
