diff --git a/Language/Haskell/GhcMod/DebugLogger.hs b/Language/Haskell/GhcMod/DebugLogger.hs index 74b8a49..3e3069a 100644 --- a/Language/Haskell/GhcMod/DebugLogger.hs +++ b/Language/Haskell/GhcMod/DebugLogger.hs @@ -10,8 +10,6 @@ import ErrUtils import DynFlags (LogAction) import Language.Haskell.GhcMod.Error -import Language.Haskell.GhcMod.Output -import Language.Haskell.GhcMod.Monad.Types import Prelude debugLogAction :: (String -> IO ()) -> LogAction diff --git a/Language/Haskell/GhcMod/Gap.hs b/Language/Haskell/GhcMod/Gap.hs index df9cb77..5773515 100644 --- 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: "