From b09ba749840c0f7c363c1e831a2f6d60ec267b93 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 1 Nov 2015 19:01:25 +0300
Subject: Do not enforce HTTPS

There is http://0bin.net
---
 src/ZeroBin.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZeroBin.hs b/src/ZeroBin.hs
index d7bfc5c..13c229e 100644
--- a/src/ZeroBin.hs
+++ b/src/ZeroBin.hs
@@ -47,7 +47,7 @@ post ex ct = do
   let req = HTTP.urlEncodedBody
             [ (C.pack "expiration" , C.pack     $ show ex)
             , (C.pack "content"    , L.toStrict $ JSON.encode ct)
-            ] (req' { HTTP.secure = True })
+            ] req'
   manager <- HTTP.newManager HTTP.tlsManagerSettings
   response <- HTTP.httpLbs req manager
   return . fromJust . JSON.decode $ HTTP.responseBody response
-- 
cgit v1.2.3