web-routes-quasi 0.7.0.1 → 0.7.1

raw patch · 2 files changed

+3/−44 lines, 2 filesdep +path-piecesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: path-pieces

API changes (from Hackage documentation)

Files

• Web/Routes/Quasi/Classes.hs +1/−43
• web-routes-quasi.cabal +2/−1

@@ -10,48 +10,6 @@ import qualified Data.Text as S import qualified Data.Text.Lazy as L import qualified Data.Text.Read--class SinglePiece s where-    fromSinglePiece :: S.Text -> Maybe s-    toSinglePiece :: s -> S.Text-instance SinglePiece String where-    fromSinglePiece s = if S.null s then Nothing else Just (S.unpack s)-    toSinglePiece = S.pack-instance SinglePiece S.Text where-    fromSinglePiece s = if S.null s then Nothing else Just s-    toSinglePiece = id-instance SinglePiece L.Text where-    fromSinglePiece s = if S.null s then Nothing else Just (L.fromChunks [s])-    toSinglePiece = S.concat . L.toChunks-instance SinglePiece Integer where-    fromSinglePiece s =-        case Data.Text.Read.decimal s of-            Right (i, _) -> Just i-            Left _ -> Nothing-    toSinglePiece = S.pack . show-instance SinglePiece Int where-    fromSinglePiece s =-        case Data.Text.Read.decimal s of-            Right (i, _) -> Just i-            Left _ -> Nothing-    toSinglePiece = S.pack . show-instance SinglePiece Int64 where-    fromSinglePiece s =-        case Data.Text.Read.decimal s of-            Right (i, _) -> Just i-            Left _ -> Nothing-    toSinglePiece = S.pack . show+import Web.PathPieces -class MultiPiece s where-    fromMultiPiece :: [S.Text] -> Maybe s-    toMultiPiece :: s -> [S.Text]-instance MultiPiece [String] where-    fromMultiPiece = Just . map S.unpack-    toMultiPiece = map S.pack type Strings = [String]-instance MultiPiece [S.Text] where-    fromMultiPiece = Just-    toMultiPiece = id-instance MultiPiece [L.Text] where-    fromMultiPiece = Just . map (L.fromChunks . return)-    toMultiPiece = map $ S.concat . L.toChunks

@@ -1,5 +1,5 @@ name:            web-routes-quasi-version:         0.7.0.1+version:         0.7.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -18,6 +18,7 @@ library     build-depends:   base             >= 4       && < 5                    , template-haskell+                   , path-pieces      >= 0.0     && < 0.1                    , text             >= 0.5     && < 0.12     exposed-modules: Web.Routes.Quasi                      Web.Routes.Quasi.Classes