diff options
| -rw-r--r-- | src/Plugins/Monitors/Weather.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/Plugins/Monitors/Weather.hs b/src/Plugins/Monitors/Weather.hs index f2cc131..dfc421e 100644 --- a/src/Plugins/Monitors/Weather.hs +++ b/src/Plugins/Monitors/Weather.hs @@ -16,7 +16,8 @@ module Plugins.Monitors.Weather where import Plugins.Monitors.Common -import Control.Exception (catch, IOException) +import qualified Control.Exception as CE + import Network.HTTP import Text.ParserCombinators.Parsec @@ -133,8 +134,8 @@ stationUrl station = defUrl ++ station ++ ".TXT" getData :: String -> IO String getData station = do let request = getRequest (stationUrl station) - catch (simpleHTTP request >>= getResponseBody) errHandler - where errHandler :: IOException -> IO String + CE.catch (simpleHTTP request >>= getResponseBody) errHandler + where errHandler :: CE.IOException -> IO String errHandler _ = return "<Could not retrieve data>" formatWeather :: [WeatherInfo] -> Monitor String @@ -154,8 +155,8 @@ weatherReady :: [String] -> Monitor Bool weatherReady str = do let station = head str request = headRequest (stationUrl station) - io $ catch (simpleHTTP request >>= checkResult) errHandler - where errHandler :: IOException -> IO Bool + io $ CE.catch (simpleHTTP request >>= checkResult) errHandler + where errHandler :: CE.IOException -> IO Bool errHandler _ = return False checkResult result = do case result of |