ghc/compiler/tests/deSugar/ds022.hs

   1 --!!! ds022 -- literal patterns (wimp version)
   2 --
   3 module Tests where
   4
   5 f 1 1.1 = []
   6 f 2 2.2 = []
   7 f 3 3.3 = []
   8 f 4 4.4 = []
   9
  10 g 11111111111111111111111 1.11111111111111111 = []
  11 g 22222222222222222222222 2.22222222222222222 = []
  12 g 33333333333333333333333 3.33333333333333333 = []
  13 g 44444444444444444444444 4.44444444444444444 = []
  14
  15 h 'a'       ""                  = []
  16 h '\''      "foo"               = []
  17 h '"'       ('b':'a':'r':[])    = []
  18 h '\o250'   blob                = []
  19
  20 i 1 1.1     = []
  21 i 2 2.2     = []
  22 i 1 0.011e2 = []
  23 i 2 2.20000 = []
  24
  25 {-
  26 j one@1 oneone@1.1
  27   | ((fromFloat oneone) - (fromIntegral (fromInt one)))
  28         /= (fromIntegral (fromInt 0)) = []
  29 j two@2 twotwo@2.2
  30   | ((fromFloat twotwo) * (fromIntegral (fromInt 2)))
  31         == (fromIntegral (fromInt 4.4)) = []
  32 -}