ghc/tests/deSugar/should_compile/ds049.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module ShouldCompile where
   4
   5 -- !!! test lit-lits in patterns
   6
   7 import Addr
   8 {- Litlits are deprecated, aren't they?!
   9 litlit_int    (``1''      :: Int)    = 42
  10 litlit_word   (``1''      :: Word)   = 42
  11 litlit_char   (`` '\n' '' :: Char)   = 42
  12 litlit_addr   (``NULL''   :: Addr)   = 42
  13 litlit_float  (``1.0''    :: Float)  = 42
  14 litlit_double (``1.0''    :: Double) = 42
  15 -}