summaryrefslogtreecommitdiff
path: root/testsuite/tests/module/mod100.hs
blob: f370d09f87d7bfdd7d0d6fb10e16de0538735a14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
-- !!! Empty where declarations list
module Mod100 where

y = 3

x = v where v = 2 where

{- Example of a nested context not being further
   indented than the enclosing - an error (from the
   Sec B.2 of the H98 report).

f x = let
       h y = let
     p z = z
             in p
      in h

-}

f e = let { x = e; y = x } in y

z = 'a' where 

class A a where

instance A Int where

instance A Char