ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/TH_finalizer.hs

{-# 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 [] )