diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-27 19:52:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-27 19:52:36 -0400 |
| commit | cbf810a421901e76ee2d3e18592fb4d39de851a6 (patch) | |
| tree | 222eb2bedae5ddd3703d611a5b31a5b396dca75f /Utility/Exception.hs | |
| parent | 7d1b396cc863fb93869b7358dcfe1908985a21b8 (diff) | |
clean up some ugly code
Diffstat (limited to 'Utility/Exception.hs')
| -rw-r--r-- | Utility/Exception.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/Exception.hs b/Utility/Exception.hs index 3835d741d..cf2c615c7 100644 --- a/Utility/Exception.hs +++ b/Utility/Exception.hs @@ -14,6 +14,7 @@ import qualified Control.Exception as E import Control.Applicative import Control.Monad import System.IO.Error (isDoesNotExistError) +import Utility.Data {- Catches IO errors and returns a Bool -} catchBoolIO :: IO Bool -> IO Bool @@ -54,5 +55,5 @@ tryNonAsync a = (Right <$> a) `catchNonAsync` (return . Left) {- Catches only DoesNotExist exceptions, and lets all others through. -} tryWhenExists :: IO a -> IO (Maybe a) -tryWhenExists a = either (const Nothing) Just <$> +tryWhenExists a = eitherToMaybe <$> tryJust (guard . isDoesNotExistError) a |