-- {-# LANGUAGE CPP #-}

module MPS.TH where

import Language.Haskell.TH.Quote 
import Language.Haskell.TH.Syntax 
import Language.Haskell.TH.Lib 


here :: QuasiQuoter 

{-
#if GHC7
here = QuasiQuoter (litE . stringL) (litP . stringL) (const listT) (const (returnQ []))

#else
here = QuasiQuoter (litE . stringL) (litP . stringL) 

#endif
-}

here = QuasiQuoter 
  {
    quoteExp = (litE . stringL)
  , quotePat = (litP . stringL)
  }