elisp: Fix usage of legacy-interactive

2015-05-06 16:32:53 +02:00
parent aa75d2213e
commit e202fabc39
4 changed files with 21 additions and 15 deletions
--- a/Language/Haskell/GhcMod/Pretty.hs
+++ b/Language/Haskell/GhcMod/Pretty.hs
@@ -38,6 +38,7 @@ gmComponentNameDoc (ChTestName n)  = text $ "test:" ++ n
 gmComponentNameDoc (ChBenchName n) = text $ "bench:" ++ n

 gmLogLevelDoc :: GmLogLevel -> Doc
+gmLogLevelDoc GmSilent    = error "GmSilent MUST not be used for log messages"
 gmLogLevelDoc GmPanic     = text "PANIC"
 gmLogLevelDoc GmException = text "EXCEPTION"
 gmLogLevelDoc GmError     = text "ERROR"
--- a/Language/Haskell/GhcMod/Types.hs
+++ b/Language/Haskell/GhcMod/Types.hs
@@ -163,7 +163,8 @@ type ModuleString = String
 -- | A Module
 type Module = [String]

-data GmLogLevel = GmPanic
+data GmLogLevel = GmSilent
+                | GmPanic
                | GmException
                | GmError
                | GmWarning