summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/T21463.hs
blob: bec226f72d25ab419a732f42f750523e204a9806 (plain)
1
2
3
4
5
6
7
8
9
10
{-# LANGUAGE TemplateHaskell #-}
module Main where

main :: IO ()
main = print
  $([| let f :: Int -> Int
           f x = x + 1
           {-# OPAQUE f #-}
       in f 41
     |])