blob: 7a88e8b63e2b4fbc39d3014912ecf22577bd5460 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE MagicHash #-}
module Main where
import Language.Haskell.TH
import GHC.Exts(Addr#)
import GHC.Ptr
import Foreign.Marshal.Array (peekArray)
import Data.Word (Word8)
check_equal :: [Word8] -> Addr# -> IO ()
check_equal bytes addr = do
bytes' <- peekArray (length bytes) (Ptr addr)
print (bytes == bytes')
main = do
-- check round-trip
check_equal [0..255] $(litE $ stringPrimL [0..255])
-- check printing
let e = LitE (StringPrimL [0..255])
print e
putStrLn (pprint e)
|
