diff options
-rw-r--r-- | Regfish.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -132,7 +132,7 @@ regfishGet url = Just _ -> do --putStrLn $ "GET " <> url - let opts = W.defaults & W.cookies .~ cj + let opts = W.defaults & W.cookies .~ Just cj res <- liftIO $ W.getWith opts url @@ -166,7 +166,7 @@ regfishPost url params = do Just _ -> do --putStrLn $ "POST " <> url <> " " <> show params - let opts = W.defaults & W.cookies .~ cj + let opts = W.defaults & W.cookies .~ Just cj res <- liftIO $ W.postWith opts url params |