From 75d0d5e1897d5d69a3b296011be1981b92fbb5ac Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 6 Feb 2019 03:41:42 +0000
Subject: Fix for warnings in when using conduit

---
 src/Xmobar/Plugins/Monitors/Weather.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Xmobar/Plugins')

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
-- 
cgit v1.2.3