File: NegativePatterns.hs

package info (click to toggle)
haskell-src-exts 1.23.1-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 25,852 kB
  • sloc: haskell: 13,707; makefile: 12
file content (15 lines) | stat: -rw-r--r-- 245 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
f 1 = -1
f (-1) = 1
f ( - 2) = 2
f (  -  3) = 3

data Z a = Higher a a | Same a a | Lower a a

infixr 7 `Higher`
infixr 6 `Same`
infixr 5 `Lower`

g :: Z Int -> ()
g (   -1 `Higher`  x) = ()
g (  -  2 `Same`   x) = ()
g ( -    3 `Lower` x) = ()