From d70dc69a025091ee67a39b24326547b10c1f9c55 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Tue, 10 Oct 2017 16:17:09 +0300
Subject: Use HTTP.parseRequest

HTTP.parseUrl is deprecated.
---
 src/Web/ZeroBin.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3