diff options
Diffstat (limited to 'testsuite/tests/th/T14681.hs')
| -rw-r--r-- | testsuite/tests/th/T14681.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/tests/th/T14681.hs b/testsuite/tests/th/T14681.hs index 341a1a66b1..a83e9fb713 100644 --- a/testsuite/tests/th/T14681.hs +++ b/testsuite/tests/th/T14681.hs @@ -1,9 +1,12 @@ -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TemplateHaskell, MagicHash #-} module T14681 where import Data.Functor.Identity import Language.Haskell.TH +import GHC.Exts $([d| f = \(Identity x) -> x |]) $([d| g = $(pure $ VarE '(+) `AppE` LitE (IntegerL (-1)) `AppE` (LitE (IntegerL (-1)))) |]) +$([d| h _ = $(pure $ VarE '(+#) `AppE` LitE (IntPrimL (-1)) + `AppE` (LitE (IntPrimL (-1)))) |]) |