Fix some warnings

2015-09-11 03:52:20 +02:00
parent 8413f0a1fe
commit 12d65ba11f
2 changed files with 0 additions and 6 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -242,10 +242,6 @@ withInteractiveContext action = gbracket setup teardown body
    setCtx = uncurry setContext
 #endif

-- | Try the left action, if an IOException occurs try the right action.
-(||>) :: ExceptionMonad m => m a -> m a -> m a
-x ||> y = x `gcatch` (\(_ :: IOException) -> y)
-
 showSeverityCaption :: Severity -> String
 #if __GLASGOW_HASKELL__ >= 706
 showSeverityCaption SevWarning = "Warning: "