testsuite/tests/quotes/T18521.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE MagicHash #-}
{-# LANGUAGE TemplateHaskellQuotes #-}
module T18521 where

import GHC.Exts (Int#)
import Language.Haskell.TH

a :: Code Q Int#
a = [|| 42# ||]

b :: CodeQ Int#
b = a

c :: TExpQ Int#
c = examineCode a