Do not enforce HTTPS

There is http://0bin.net

1 files changed, 1 insertions, 1 deletions

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