diff options
| author | jao <jao@gnu.org> | 2019-02-06 03:41:42 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2019-02-06 03:41:42 +0000 |
| commit | 75d0d5e1897d5d69a3b296011be1981b92fbb5ac (patch) | |
| tree | 80f88492af57feab08e61b9527944377ada5a856 /src/Xmobar | |
| parent | e1e901c1b2e7b821ef10c8c0622b8ae7094a7518 (diff) | |
| download | xmobar-75d0d5e1897d5d69a3b296011be1981b92fbb5ac.tar.gz xmobar-75d0d5e1897d5d69a3b296011be1981b92fbb5ac.tar.bz2 | |
Fix for warnings in when using conduit
Diffstat (limited to 'src/Xmobar')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Weather.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Weather.hs b/src/Xmobar/Plugins/Monitors/Weather.hs index 48f48fd..ce6fc29 100644 --- a/src/Xmobar/Plugins/Monitors/Weather.hs +++ b/src/Xmobar/Plugins/Monitors/Weather.hs @@ -192,7 +192,7 @@ getData :: String -> IO String #ifdef HTTP_CONDUIT getData station = CE.catch (do manager <- newManager tlsManagerSettings - request <- parseUrl $ stationUrl station + request <- parseUrlThrow $ stationUrl station res <- httpLbs request manager return $ B.unpack $ responseBody res ) errHandler @@ -222,7 +222,7 @@ runWeather str = weatherReady :: [String] -> Monitor Bool #ifdef HTTP_CONDUIT weatherReady str = do - initRequest <- parseUrl $ stationUrl $ head str + initRequest <- parseUrlThrow $ stationUrl $ head str let request = initRequest{method = methodHead} io $ CE.catch ( do manager <- newManager tlsManagerSettings |