testsuite/tests/th/TH_StaticPointers.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StaticPointers #-}

-- | A test of static forms in TH quotations.
module Main(main) where

import GHC.StaticPtr

main = print $ deRefStaticPtr $([| static g :: StaticPtr String |])

g = "found"