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 10-- Bar 11-- ee 12-- dddd 13