diff options
Diffstat (limited to 'ide/wg_MessageView.ml')
-rw-r--r-- | ide/wg_MessageView.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index ad3b8ecc0..b57f55ea9 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -35,6 +35,7 @@ let message_view () : message_view = method push level msg = let tags = match level with | Interface.Error -> [Tags.Message.error] + | Interface.Warning -> [Tags.Message.warning] | _ -> [] in buffer#insert ~tags msg; |