diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/th/TH_repPrimOutput2.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/th/TH_repPrimOutput2.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/testsuite/tests/ghc-regress/th/TH_repPrimOutput2.hs b/testsuite/tests/ghc-regress/th/TH_repPrimOutput2.hs deleted file mode 100644 index a7282064db..0000000000 --- a/testsuite/tests/ghc-regress/th/TH_repPrimOutput2.hs +++ /dev/null @@ -1,23 +0,0 @@ -{-# LANGUAGE MagicHash, UnboxedTuples #-} --- test the representation of unboxed literals - -module Main -where - -import GHC.Exts -import GHC.Float -import Language.Haskell.TH -import Text.PrettyPrint -import System.IO - -main :: IO () -main = do putStrLn $ show $ $( do e <- [| 20# |] - [| I# $(return e) |] ) - putStrLn $ show $ $( do e <- [| 32## |] - [| W# $(return e) |] ) - putStrLn $ show $ $( do e <- [| 12.3# |] - [| F# $(return e) |] ) - putStrLn $ show $ $( do e <- [| 24.6## |] - [| D# $(return e) |] ) - - |