diff options
| -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 |