QuasiText 0.1.2.3 → 0.1.2.4
raw patch · 2 files changed
+6/−2 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- QuasiText.cabal +1/−1
- src/Text/QuasiText.hs +5/−1
QuasiText.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: QuasiText-version: 0.1.2.3+version: 0.1.2.4 synopsis: A QuasiQuoter for Text. description: A QuasiQuoter for interpolating values into Text strings. homepage: https://github.com/mikeplus64/QuasiText
src/Text/QuasiText.hs view
@@ -52,7 +52,11 @@ let chunks = flip map (getChunks (T.pack s)) $ \c -> case c of T t -> [| t |]- E t -> let Right e = parseExp (T.unpack t) in appE [| toText |] (return e) ++ E t -> case parseExp (T.unpack t) of+ Left e -> error e+ Right e -> appE [| toText |] (return e)+ V t -> appE [| toText |] (global (mkName (T.unpack t))) in appE [| T.concat |] (listE chunks)