1 2 3 4 5 6
{-# LANGUAGE TemplateHaskell #-} import Language.Haskell.TH.Syntax [d| f = Bool |] >>= addTopDecls >> return [] main = return ()