ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/A.32.hs

{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE TemplateHaskell #-}
module A where

import Language.Haskell.TH.Quote
import Language.Haskell.TH

foo :: QuasiQuoter
foo = QuasiQuoter{quotePat = \s -> viewP [|(*2)|] (varP . mkName $ s)}

bar :: QuasiQuoter
bar = QuasiQuoter{quotePat = \_ -> [p|((*3) -> fixed_var)|] }