git.iko.soy/typeable/http-api-data
on master help sign in
[#77] Add `ToHttpApiData` instance for fixed point numbers
1a78dfeAlexandre Baldé
src/Web/Internal/HttpApiData.hs+3
compare with master
unifiedsplit
@@ -26,6 +26,7 @@ import Data.ByteString (ByteString)
26import qualified Data.ByteString as BS
26import qualified Data.ByteString as BS
27import Data.Monoid
27import Data.Monoid
28
28
29+import qualified Data.Fixed as F
29import Data.Int
30import Data.Int
30import Data.Word
31import Data.Word
31
32
@@ -449,6 +450,8 @@ instance ToHttpApiData Word16 where toUrlPiece = showt; toEncodedUrlPiece = un
449instance ToHttpApiData Word32 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
450instance ToHttpApiData Word32 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
450instance ToHttpApiData Word64 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
451instance ToHttpApiData Word64 where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
451
452
453+instance F.HasResolution a => ToHttpApiData (F.Fixed a) where toUrlPiece = showt; toEncodedUrlPiece = unsafeToEncodedUrlPiece
454+
452-- |
455-- |
453-- >>> toUrlPiece (fromGregorian 2015 10 03)
456-- >>> toUrlPiece (fromGregorian 2015 10 03)
454-- "2015-10-03"
457-- "2015-10-03"