aboutsummaryrefslogtreecommitdiff
path: root/src/Web
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2017-10-10 16:17:09 +0300
committerIgor Pashev <pashev.igor@gmail.com>2017-10-10 16:23:13 +0300
commitd70dc69a025091ee67a39b24326547b10c1f9c55 (patch)
treedcf1a5a09fcbfb737a6fa6896a4ae8de03b37f0a /src/Web
parent23228e6d512d13c0df98c9573fd321099c612d0d (diff)
downloadzerobin-d70dc69a025091ee67a39b24326547b10c1f9c55.tar.gz
Use HTTP.parseRequest
HTTP.parseUrl is deprecated.
Diffstat (limited to 'src/Web')
-rw-r--r--src/Web/ZeroBin.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Web/ZeroBin.hs b/src/Web/ZeroBin.hs
index 0f32a50..de32ce3 100644
--- a/src/Web/ZeroBin.hs
+++ b/src/Web/ZeroBin.hs
@@ -67,7 +67,7 @@ form Never = "never"
post :: String -> Expiration -> Content -> IO String
post bin ex ct = do
- req' <- HTTP.parseUrl $ bin ++ "/paste/create"
+ req' <- HTTP.parseRequest $ bin ++ "/paste/create"
let req =
HTTP.urlEncodedBody
[ (C.pack "expiration", C.pack $ form ex)