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 | 
