path-pieces 0.1.2 → 0.1.3

raw patch · 3 files changed

+5/−6 lines, 3 filesdep −file-location

Dependencies removed: file-location

Files

• Web/PathPieces.hs +3/−3
• path-pieces.cabal +1/−2
• test/main.hs +1/−1

@@ -33,21 +33,21 @@  instance PathPiece Integer where     fromPathPiece s =-        case Data.Text.Read.decimal s of+        case Data.Text.Read.signed Data.Text.Read.decimal s of             Right (i, _) -> Just i             Left _ -> Nothing     toPathPiece = S.pack . show  instance PathPiece Int where     fromPathPiece s =-        case Data.Text.Read.decimal s of+        case Data.Text.Read.signed Data.Text.Read.decimal s of             Right (i, _) -> Just i             Left _ -> Nothing     toPathPiece = S.pack . show  instance PathPiece Int64 where     fromPathPiece s =-        case Data.Text.Read.decimal s of+        case Data.Text.Read.signed Data.Text.Read.decimal s of             Right (i, _) -> Just i             Left _ -> Nothing     toPathPiece = S.pack . show

@@ -1,5 +1,5 @@ name:            path-pieces-version:         0.1.2+version:         0.1.3 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -26,7 +26,6 @@     ghc-options:   -Wall     build-depends:   HUnit                    , hspec >= 1.3-                   , file-location >= 0.4 && < 0.5                    , base >= 4 && < 5                    , QuickCheck                    , path-pieces

@@ -34,7 +34,7 @@      prop "toPathPiece <=> fromPathPiece String" $ \(p::Int) ->       case (fromPathPiece . toPathPiece) p of-        Nothing -> p < 0+        Nothing -> False         Just pConverted -> p == pConverted    describe "PathMultiPiece" $ do