File: NegativePatterns.hs.prettyprinter.golden

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 (19 lines) | stat: -rw-r--r-- 244 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
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) = ()