1{-# LANGUAGE TemplateHaskell #-} 2{-# LANGUAGE QuasiQuotes #-} 3module TSimpleDecl where 4import Language.Haskell.TH ( mkName, clause, normalB, funD, sigD ) 5 6-- Foo 7-- Bar 8foo :: Int 9foo = 42 10bar :: Int 11-- Bar 12-- ee 13-- dddd 14