1{-# LANGUAGE TemplateHaskell #-} 2x = [d| 3 4 f :: a -> Int 5 f x = 1 |] 6y = [d| 7 8 f2 :: a -> Int 9 f2 x = 1 |] 10