1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/th/T21463.hs b/testsuite/tests/th/T21463.hs
new file mode 100644
index 0000000000..bec226f72d
--- /dev/null
+++ b/testsuite/tests/th/T21463.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Main where
+
+main :: IO ()
+main = print
+  $([| let f :: Int -> Int
+           f x = x + 1
+           {-# OPAQUE f #-}
+       in f 41
+     |])