diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 11:10:25 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 13:11:28 +0200 |
| commit | 77afb51613df5777582627e8c505fde57b0be188 (patch) | |
| tree | 4fa0da681316b42286ef888ed6ab1a781867933c /CabalHelper/Shared | |
| parent | b42f9095993f5862d4450a84f6cf535b7a252d48 (diff) | |
Add support for running Cabal's Setup.hs directly
cabal-install 1.24 broke installing older Cabal versions which use
build-type:custom. See https://github.com/haskell/cabal/pull/4787.
This still breaks with HEAD on GHC<8. See
https://github.com/haskell/cabal/pull/4786.
Diffstat (limited to 'CabalHelper/Shared')
| -rw-r--r-- | CabalHelper/Shared/Common.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/CabalHelper/Shared/Common.hs b/CabalHelper/Shared/Common.hs index 588cd03..b4c9e46 100644 --- a/CabalHelper/Shared/Common.hs +++ b/CabalHelper/Shared/Common.hs @@ -42,6 +42,9 @@ instance Exception Panic panic :: String -> a panic msg = throw $ Panic msg +panicIO :: String -> IO a +panicIO msg = throwIO $ Panic msg + handlePanic :: IO a -> IO a handlePanic action = action `E.catch` \(Panic msg) -> errMsg msg >> exitFailure |