Implement unboxed sum primitive type
[ghc.git] / testsuite / tests / unboxedsums / module / Main.hs
1 {-# LANGUAGE UnboxedSums #-}
2
3 module Main where
4
5 import Lib
6
7 import Prelude (print, IO)
8
9 main :: IO ()
10 main = do
11 print (getInt (flip (# 123 | #)))