rawstring-qm 0.2.0 → 0.2.1

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• rawstring-qm.cabal +1/−1
• src/Data/String/QM.hs +3/−3

@@ -1,5 +1,5 @@ name:                rawstring-qm-version:             0.2.0+version:             0.2.1 cabal-version:       >=1.10 synopsis:            Simple raw string quotation and dictionary interpolation description:         Supply a couple of usefull QuasiQuotes so we can use functions to lookup values

@@ -83,19 +83,19 @@ makeExpr [] = ls "" makeExpr (Literal a:xs)   = TH.appE [| (<>) a |]                             $ makeExpr xs-makeExpr (AntiQuote a:xs) = TH.appE [| (<>) (reify a) |]+makeExpr (AntiQuote a:xs) = TH.appE [| (<>) (reify $ mkName  a) |]                             $ makeExpr xs  makeExprT [] = ls "" makeExprT (Literal a:xs)   = TH.appE [| (<>) a |]                             $ makeExprT xs-makeExprT (AntiQuote a:xs) = TH.appE [| (<>) (toText (reify a)) |]+makeExprT (AntiQuote a:xs) = TH.appE [| (<>) (toText (reify $ mkName a)) |]                             $ makeExprT xs  makeExprTL [] = ls "" makeExprTL (Literal a:xs)   = TH.appE [| (<>) a |]                             $ makeExprT xs-makeExprTL (AntiQuote a:xs) = TH.appE [| (<>) (toLazyText (reify a)) |]+makeExprTL (AntiQuote a:xs) = TH.appE [| (<>) (toLazyText (reify $ mkName a)) |]                             $ makeExprT xs