Consolidate APIs (#104)

* Consolidate APIs

* Use partial function approach instead of Streamable typeclass

* Clean up
This commit is contained in:
Connor Prussin
2018-08-26 21:54:04 -07:00
committed by GitHub
parent 2673bd4b0b
commit 1bde8b4b1d
13 changed files with 212 additions and 224 deletions

View File

@@ -20,8 +20,7 @@ filePath = "./docs/Examples/Image/circle.png"
-- | Respond with image data when run
image :: HTTPure.Request -> HTTPure.ResponseM
image _ =
FS.readFile filePath >>= HTTPure.binaryResponse' 200 headers
image _ = FS.readFile filePath >>= HTTPure.ok' headers
where
headers = HTTPure.header "Content-Type" "image/png"