hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix some warnings

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/DebugLogger.hs
View File

@ -10,8 +10,6 @@ import ErrUtils
import DynFlags (LogAction) import DynFlags (LogAction)
import Language.Haskell.GhcMod.Error import Language.Haskell.GhcMod.Error
import Language.Haskell.GhcMod.Output
import Language.Haskell.GhcMod.Monad.Types
import Prelude import Prelude
debugLogAction :: (String -> IO ()) -> LogAction debugLogAction :: (String -> IO ()) -> LogAction

4
Language/Haskell/GhcMod/Gap.hs
View File

@ -242,10 +242,6 @@ withInteractiveContext action = gbracket setup teardown body
setCtx = uncurry setContext setCtx = uncurry setContext
#endif #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 showSeverityCaption :: Severity -> String
#if __GLASGOW_HASKELL__ >= 706 #if __GLASGOW_HASKELL__ >= 706
showSeverityCaption SevWarning = "Warning: " showSeverityCaption SevWarning = "Warning: "