git.iko.soy/typeable/http-api-data
on master help sign in
Fix ToHttpApiData instance for NominalDiffTime
f40387cNickolay Kudasov
Web/HttpApiData/Internal.hs+1−1
compare with master
unifiedsplit
@@ -382,7 +382,7 @@ instance ToHttpApiData ZonedTime where toUrlPiece = timeToUrlPiece "%H:%M:%S%z"
382-- "2015-10-03T00:14:24Z"
382-- "2015-10-03T00:14:24Z"
383instance ToHttpApiData UTCTime where toUrlPiece = timeToUrlPiece "%H:%M:%SZ"
383instance ToHttpApiData UTCTime where toUrlPiece = timeToUrlPiece "%H:%M:%SZ"
384
384
385−instance ToHttpApiData NominalDiffTime where toUrlPiece = toUrlPiece . fromEnum
385+instance ToHttpApiData NominalDiffTime where toUrlPiece = toUrlPiece . (floor :: NominalDiffTime -> Integer)
386
386
387instance ToHttpApiData String where toUrlPiece = T.pack
387instance ToHttpApiData String where toUrlPiece = T.pack
388instance ToHttpApiData Text where toUrlPiece = id
388instance ToHttpApiData Text where toUrlPiece = id