diff options
Diffstat (limited to 'testsuite/tests/ghc-api/annotations/Test12417.hs')
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/Test12417.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/testsuite/tests/ghc-api/annotations/Test12417.hs b/testsuite/tests/ghc-api/annotations/Test12417.hs deleted file mode 100644 index 67da7f2107..0000000000 --- a/testsuite/tests/ghc-api/annotations/Test12417.hs +++ /dev/null @@ -1,19 +0,0 @@ -{-# LANGUAGE UnboxedSums, MagicHash #-} - -module Test12417 where - -import GHC.Prim -import GHC.Types - -import System.Mem (performMajorGC) - -type Either1 a b = (# a | b #) - -showEither1 :: (Show a, Show b) => Either1 a b -> String -showEither1 (# left | #) = "Left " ++ show left -showEither1 (# | right #) = "Right " ++ show right - -type T = (# Int | Bool | String | Char | Either Int Bool | Int# | Float# #) - -showEither4 :: T -> String -showEither4 (# | b | | | | | #) = "Alt1: " ++ show b |