ghc-exactprint-0.2: tests/examples/PatBind.hs

module   Layout.PatBind where

a,b :: Int
a = 1
b = 2

c :: Maybe (a -> b)
c = Nothing

f :: (Num a1, Num a) => a -> a1 -> ( a, a1 )
f x y = ( x+1, y-1 )

-- Chris done comment attachment problem
foo = x
  where -- do stuff
        doStuff = do stuff
x = 1
stuff = 4

 -- Pattern bind
tup :: (Int, Int)
h :: Int
t :: Int
tup@(h,t) = head $ zip [1..10] [3..ff]
  where
    ff :: Int
    ff = 15

blah = do {
 ; print "a"
 ; print "b"
 }