testsuite/tests/primops/should_run/ShowPrim.hs


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

{-# LANGUAGE MagicHash #-}

module Main where

import GHC.Exts

data Test = Test Int8# Word8#
    deriving (Show)

test1 :: Test
test1 = Test (narrowInt8# 1#) (narrowWord8# 2##)

main :: IO ()
main = print test1