air-2011.6.18: src/Air/TH/Here.hs

-- {-# LANGUAGE CPP #-}

module Air.TH.Here where

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


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