Fix some warnings

This commit is contained in:
Daniel Gröber 2015-09-11 03:52:20 +02:00
parent 8413f0a1fe
commit 12d65ba11f
2 changed files with 0 additions and 6 deletions

View File

@ -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

View File

@ -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: "