Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / unboxedsums / T12375.hs
1 {-# LANGUAGE UnboxedTuples #-}
2
3 module Main where
4
5 type Null = (# #)
6
7 {-# NOINLINE showNull #-}
8 showNull :: Null -> String
9 showNull (# #) = "(# #)"
10
11 {-# NOINLINE showNullPair #-}
12 showNullPair :: (# Null, Null #) -> String
13 showNullPair (# n1, n2 #) = "(# " ++ showNull n1 ++ ", " ++ showNull n2 ++ " #)"
14
15 main :: IO ()
16 main = do
17 putStrLn (showNullPair (# (# #), (# #) #))