blob: 6efbce4334e58e9b1f38bc820c3654ee471fdf1f (
plain)
1
2
3
4
5
6
7
|
import Numeric
import GHC.Natural
main = do
-- test that GHC correctly compiles big Natural literals
let x = 0xffffffffffffffffffffffff :: Natural
print (showHex x "" == "ffffffffffffffffffffffff")
|