diff options
Diffstat (limited to 'Utility/Url.hs')
-rw-r--r-- | Utility/Url.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs index 69b53c34c..f678720ed 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -11,7 +11,7 @@ module Utility.Url ( get ) where -import Control.Monad (liftM) +import Control.Applicative import Control.Monad.State (liftIO) import qualified Network.Browser as Browser import Network.HTTP @@ -64,7 +64,6 @@ request url requesttype = Browser.browse $ do Browser.setErrHandler ignore Browser.setOutHandler ignore Browser.setAllowRedirects True - liftM snd $ Browser.request - (mkRequest requesttype url :: Request_String) + snd <$> Browser.request (mkRequest requesttype url :: Request_String) where ignore = const $ return () |