git.iko.soy/typeable/http-api-data
on master help sign in
[#77] Add `ToHttpApiData` instance for fixed point numbers
commit1a78dfe9e81b67f09686dc54192ebc1bb815595d authorAlexandre Baldé <alexandrer_b@outlook.com> dateTue 2 Oct 2018, 16:42 (8 years ago) parentf29b0f1
1 file changed+3
compare with master
unifiedsplit
src/Web/Internal/HttpApiData.hs+3
src/Web/Internal/HttpApiData.hs+3
@@ -26,6 +26,7 @@ import Data.ByteString (ByteString)
2626import qualified Data.ByteString as BS
2727import Data.Monoid
2828
29+import qualified Data.Fixed as F
2930import Data.Int
3031import Data.Word
3132
@@ -449,6 +450,8 @@ instance ToHttpApiData Word16 where toUrlPiece = showt; toEncodedUrlPiece = un
449450instance ToHttpApiData Word32 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
450451instance ToHttpApiData Word64 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
451452
453+instance F.HasResolution a => ToHttpApiData (F.Fixed a) where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
454+
452455-- |
453456-- >>> toUrlPiece (fromGregorian 2015 10 03)
454457-- "2015-10-03"