web-routes-quasi 0.7.0 → 0.7.0.1

raw patch · 2 files changed

+4/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Web/Routes/Quasi/TH.hs +3/−1
• web-routes-quasi.cabal +1/−1

@@ -15,6 +15,7 @@ import Data.Either import Data.List import Data.Char (toLower)+import qualified Data.Text  data Pieces =     SubSite@@ -121,8 +122,9 @@     mkBod [] = lift ([] :: [String])     mkBod ((_, StaticPiece x):xs) = do         x' <- lift x+        pack <- [|Data.Text.pack|]         xs' <- mkBod xs-        return $ ConE (mkName ":") `AppE` x' `AppE` xs'+        return $ ConE (mkName ":") `AppE` (pack `AppE` x') `AppE` xs'     mkBod ((i, SinglePiece _):xs) = do         let x' = VarE $ mkName $ "var" ++ show i         tsp <- [|toSinglePiece|]

@@ -1,5 +1,5 @@ name:            web-routes-quasi-version:         0.7.0+version:         0.7.0.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>