mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

allow Utility.Exception to still be used when not building with cabal

Browse source
This commit is contained in:
Joey Hess 2016-11-15 22:01:55 -04:00
parent d2b49090b8
commit 2493c2c5a4
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/Exception.hs
View file

@ -46,11 +46,15 @@ import Utility.Data
- where there's a problem that the user is excpected to see in some - where there's a problem that the user is excpected to see in some
- circumstances. -} - circumstances. -}
giveup :: [Char] -> a giveup :: [Char] -> a
#ifdef MIN_VERSION_base
#if MIN_VERSION_base(4,9,0) #if MIN_VERSION_base(4,9,0)
giveup = errorWithoutStackTrace giveup = errorWithoutStackTrace
#else #else
giveup = error giveup = error
#endif #endif
#else
giveup = error
#endif
{- Catches IO errors and returns a Bool -} {- Catches IO errors and returns a Bool -}
catchBoolIO :: MonadCatch m => m Bool -> m Bool catchBoolIO :: MonadCatch m => m Bool -> m Bool