[project @ 2001-07-26 09:54:39 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_run / dsrun004.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)