diff options
| -rw-r--r-- | src/Web/ZeroBin.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |