diff options
| -rw-r--r-- | src/ZeroBin.hs | 2 |
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 |