summaryrefslogtreecommitdiff
path: root/testsuite/tests/quotes/T18521.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/quotes/T18521.hs')
-rw-r--r--testsuite/tests/quotes/T18521.hs15
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/quotes/T18521.hs b/testsuite/tests/quotes/T18521.hs
new file mode 100644
index 0000000000..9b5965ae3b
--- /dev/null
+++ b/testsuite/tests/quotes/T18521.hs
@@ -0,0 +1,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