testsuite/tests/lib/integer/fromToInteger.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14


{-# LANGUAGE MagicHash #-}

module Q where

import GHC.Exts
import GHC.Num.Integer

v :: Int
v = I# (integerToInt# (IS 3#))

w :: Word
w = W# (integerToWord# (integerFromWord# 3##))