diff options
Diffstat (limited to 'HTTP.hs')
-rw-r--r-- | HTTP.hs | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -66,9 +66,15 @@ instance FromJSON ProofOfWorkRequirement instance FromHttpApiData ProofOfWork where parseUrlPiece = Right . ProofOfWork +instance ToHttpApiData ProofOfWork where + toUrlPiece (ProofOfWork t) = t + instance FromHttpApiData StorableObjectIdent where parseUrlPiece = Right . StorableObjectIdent . T.encodeUtf8 +instance ToHttpApiData StorableObjectIdent where + toUrlPiece (StorableObjectIdent b) = T.decodeUtf8 b + instance MimeRender OctetStream StorableObject where mimeRender _ = L.fromStrict . toByteString |