ghc/tests/etc/testpats.hs

   1 -- pats
   2 -----
   3
   4 _ = 2   --
   5
   6 -----
   7
   8 x = 2   --
   9
  10 -----
  11
  12 (z@(x:y)) = z   --
  13
  14 -----
  15
  16 ~(x,y) = x      --
  17
  18 -----
  19
  20 f True = 1
  21
  22 f False = 0
  23
  24 -----
  25
  26