diff --git a/src/state/gvMessages.ml b/src/state/gvMessages.ml index 8d1c4fa..d8f63c6 100644 --- a/src/state/gvMessages.ml +++ b/src/state/gvMessages.ml @@ -10,12 +10,20 @@ module Message = struct | Single p -> loc p | Group { pieces; _ } -> pieces |> List.filter_map loc |> List.enum |> Enum.get - let severity_to_bs_alert m = match m.severity with + let severity_to_hash m = m.severity |> Severity.hash + let severity_to_string m = match m.severity with + | Error -> "Error" + | Warning -> "Warning" + | Info -> "Info" + | Debug -> "Debug" + | Success -> "Success" + let severity_to_bootstrap_class (m:Severity.t) = match m with | Error -> "alert-danger" | Warning -> "alert-warning" | Info -> "alert-info" | Debug -> "alert-light" | Success -> "alert-success" + let message_to_bootstrap_class m = severity_to_bootstrap_class m.severity let to_string msg = let out = IO.output_string () in diff --git a/src/ui/panel/Panel.re b/src/ui/panel/Panel.re index b7ef9af..fb22bda 100644 --- a/src/ui/panel/Panel.re +++ b/src/ui/panel/Panel.re @@ -46,7 +46,7 @@ let make = (~state, ~dispatch) => {
{text |> React.string}
+