summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2019-02-06 03:41:42 +0000
committerjao <jao@gnu.org>2019-02-06 03:41:42 +0000
commit75d0d5e1897d5d69a3b296011be1981b92fbb5ac (patch)
tree80f88492af57feab08e61b9527944377ada5a856 /src/Xmobar/Plugins
parente1e901c1b2e7b821ef10c8c0622b8ae7094a7518 (diff)
downloadxmobar-75d0d5e1897d5d69a3b296011be1981b92fbb5ac.tar.gz
xmobar-75d0d5e1897d5d69a3b296011be1981b92fbb5ac.tar.bz2
Fix for warnings in when using conduit
Diffstat (limited to 'src/Xmobar/Plugins')
-rw-r--r--src/Xmobar/Plugins/Monitors/Weather.hs4
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