git.iko.soy/typeable/http-api-data
on master help sign in
Add PathPiece instance for Integer and missing tests
commit1aef3eb33a8194b17335afb7cd36e53d0908973a authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateTue 6 Oct 2015, 01:55 (11 years ago) parentc2959c0
2 files changed+3
compare with master
unifiedsplit
Web/PathPieces.hs+1 test/main.hs+2
Web/PathPieces.hs+1
@@ -55,6 +55,7 @@ instance PathPiece Int8
5555instance PathPiece Int16
5656instance PathPiece Int32
5757instance PathPiece Int64
58+instance PathPiece Integer
5859instance PathPiece Word
5960instance PathPiece Word8
6061instance PathPiece Word16
test/main.hs+2
@@ -49,6 +49,8 @@ spec = do
4949 prop "toPathPiece <=> fromPathPiece Int8" $ \(p :: Int8) -> (toPathPiece <=> fromPathPiece) p
5050 prop "toPathPiece <=> fromPathPiece Int16" $ \(p :: Int16) -> (toPathPiece <=> fromPathPiece) p
5151 prop "toPathPiece <=> fromPathPiece Int32" $ \(p :: Int32) -> (toPathPiece <=> fromPathPiece) p
52+ prop "toPathPiece <=> fromPathPiece Int64" $ \(p :: Int64) -> (toPathPiece <=> fromPathPiece) p
53+ prop "toPathPiece <=> fromPathPiece Integer" $ \(p :: Integer) -> (toPathPiece <=> fromPathPiece) p
5254 prop "toPathPiece <=> fromPathPiece Word" $ \(p :: Word) -> (toPathPiece <=> fromPathPiece) p
5355 prop "toPathPiece <=> fromPathPiece Word8" $ \(p :: Word8) -> (toPathPiece <=> fromPathPiece) p
5456 prop "toPathPiece <=> fromPathPiece Word16" $ \(p :: Word16) -> (toPathPiece <=> fromPathPiece) p