diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-10-10 16:17:09 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-10-10 16:23:13 +0300 |
| commit | d70dc69a025091ee67a39b24326547b10c1f9c55 (patch) | |
| tree | dcf1a5a09fcbfb737a6fa6896a4ae8de03b37f0a | |
| parent | 23228e6d512d13c0df98c9573fd321099c612d0d (diff) | |
| download | zerobin-d70dc69a025091ee67a39b24326547b10c1f9c55.tar.gz | |
Use HTTP.parseRequest
HTTP.parseUrl is deprecated.
| -rw-r--r-- | src/Web/ZeroBin.hs | 2 |
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) |