diff --git a/Web/PathPieces.hs b/Web/PathPieces.hs
--- a/Web/PathPieces.hs
+++ b/Web/PathPieces.hs
@@ -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
diff --git a/path-pieces.cabal b/path-pieces.cabal
--- a/path-pieces.cabal
+++ b/path-pieces.cabal
@@ -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
diff --git a/test/main.hs b/test/main.hs
--- a/test/main.hs
+++ b/test/main.hs
@@ -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