ghc/tests/reader/should_compile/read011.hs

   1 -- !!! do & where interaction
   2 module ShouldSucceed where
   3
   4 f1 :: IO a -> IO [a]
   5 f1 x = do
   6   v <- x
   7   return [v]
   8  where
   9   g x = [x,x]
  10
  11 f2 :: IO a -> IO [a]
  12 f2 x = do
  13   v <- x
  14   return (g v)
  15    where
  16     g x = [x,x]
  17
  18 f3 :: IO a -> IO [a]
  19 f3 x = do
  20   v <- x
  21   return (g v)
  22   where
  23    g x = [x,x]
  24