aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2015-11-01 19:01:25 +0300
committerIgor Pashev <pashev.igor@gmail.com>2015-11-01 19:01:25 +0300
commitb09ba749840c0f7c363c1e831a2f6d60ec267b93 (patch)
tree5e5e7f4c077412924e2e98318fafa77b27cadf0e /src
parent3d638b11056ca9fa25bbe21ba0db8a91022c0974 (diff)
downloadzerobin-b09ba749840c0f7c363c1e831a2f6d60ec267b93.tar.gz
Do not enforce HTTPS
There is http://0bin.net
Diffstat (limited to 'src')
-rw-r--r--src/ZeroBin.hs2
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