compiler/ilxGen/tests/foo.hs

   1 {-# OPTIONS -fglasgow-exts  #-}
   2 module Foo where
   3 import PrelGHC
   4 import PrelNum
   5 import PrelBase
   6 integer2Intx :: Integer -> Int
   7 integer2Intx (S# i)   = I# i
   8 integer2Intx (J# s d) = case (integer2Int# s d) of { n# -> I# n# }
   9