1 2 3
:set -XTemplateHaskell Language.Haskell.TH.runQ [d| instance Monad ((,) a) where { (>>=) = undefined } |]