summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins/Monitors')
-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