diff options
author | Joey Hess <joey@kitenet.net> | 2011-08-25 00:28:55 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-08-25 01:27:19 -0400 |
commit | 678726c10c13481c082743808a5188d28567e2b3 (patch) | |
tree | a5052eb5b20444e10d3f5d467281ef4c0f5975d1 /Utility/Url.hs | |
parent | 20259c2955e408a72e0960207fc8be4cbeec2e21 (diff) |
code simplification thanks to applicative functors
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 () |