1 {-# OPTIONS -fglasgow-exts #-}
3 module ShouldCompile where
5 -- !!! test lit-lits in patterns
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