blob: 2123773a35b0007e5867bec0da6a25f4e5586d93 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# OPTIONS_GHC -XArrows -XRecursiveDo#-}
-- Test #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) }
|
