testsuite/tests/th/TH_finalizer.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}

module ShouldCompile where

import Language.Haskell.TH
import Language.Haskell.TH.Syntax

$( do
     addModFinalizer (do b <- getQ; reportWarning (show (b::Maybe Bool)))
     return [] )
$( putQ True >> return [] )