[project @ 1997-09-05 09:16:19 by simonm]
[ghc-hetmet.git] / ghc / tests / deSugar / should_run / ds004.hs
1 -- Test n+k patterns
2
3 module Main where
4
5 f (n+1) = n
6
7 g :: Int -> Int
8 g (n+4) = n
9
10 main = print (f 3)      >>
11        print (g 9)