blob: 7d713e8f7977174914b2cf51009cdc263f2b2413 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE Haskell2010 #-}
{-# LANGUAGE NondecreasingIndentation #-}
-- !!! Layout rule extension (restricting empty do's).
module Foo where
g :: Int -> (Int -> IO a) -> IO a
g x cont = cont x
f :: Int -> IO Int
f x = do
g x $ \ y -> do
f y
|