Exposing lower level API using GhcMonad

2013-08-24 19:17:33 +02:00
parent 1cd83ce2e0
commit a45bfb97b9
4 changed files with 53 additions and 8 deletions
--- a/Language/Haskell/GhcMod/GHCChoice.hs
+++ b/Language/Haskell/GhcMod/GHCChoice.hs
@@ -12,6 +12,9 @@ import GHC
 (||>) :: Ghc a -> Ghc a -> Ghc a
 x ||> y = x `gcatch` (\(_ :: IOException) -> y)

+(|||>) :: GhcMonad m => m a -> m a -> m a
+x |||> y = x `gcatch` (\(_ :: IOException) -> y)
+
 ----------------------------------------------------------------

 {-| Go to the next 'Ghc' monad by throwing 'AltGhcgoNext'.