git.iko.soy/typeable/http-api-data
on master help sign in
Fix ToHttpApiData instance for NominalDiffTime
commitf40387c887d14be844fc4d64fc84f0c0dad6e0ff authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateTue 8 Dec 2015, 16:17 (11 years ago) parent4cfbeb4
1 file changed+1−1
compare with master
unifiedsplit
Web/HttpApiData/Internal.hs+1−1
Web/HttpApiData/Internal.hs+1−1
@@ -382,7 +382,7 @@ instance ToHttpApiData ZonedTime where toUrlPiece = timeToUrlPiece "%H:%M:%S%z"
382382-- "2015-10-03T00:14:24Z"
383383instance ToHttpApiData UTCTime where toUrlPiece = timeToUrlPiece "%H:%M:%SZ"
384384
385−instance ToHttpApiData NominalDiffTime where toUrlPiece = toUrlPiece . fromEnum
385+instance ToHttpApiData NominalDiffTime where toUrlPiece = toUrlPiece . (floor :: NominalDiffTime -> Integer)
386386
387387instance ToHttpApiData String where toUrlPiece = T.pack
388388instance ToHttpApiData Text where toUrlPiece = id