blob: f22e446353d24a1863ad66f4a45bf06a8f87b9b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE MagicHash #-}
module Main where
import GHC.Exts
data P = Positives Int# Float# Double# Char# Word# deriving Show
data N = Negatives Int# Float# Double# deriving Show
main = do
print $ Positives 42# 4.23# 4.23## '4'# 4##
print $ Negatives -4# -4.0# -4.0##
|
