testsuite/tests/th/TH_finalizer2M.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}
module TH_finalizer2M( f, g) where

import Language.Haskell.TH.Syntax

g :: IO ()
g = $(do addModFinalizer (do d <- [d| f x = (2 :: Int) |]; addTopDecls d)
         [| return ()|]
     )