From f4c9fe7ceb7ad29e9bf0b875ec75e00487f90eeb Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 25 Feb 2016 02:16:07 +0000 Subject: switch to error tab when emitting one --- webgui/src/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'webgui/src') diff --git a/webgui/src/Main.hs b/webgui/src/Main.hs index 4f2c83c..141b0ea 100644 --- a/webgui/src/Main.hs +++ b/webgui/src/Main.hs @@ -115,6 +115,7 @@ setup Config{..} window (split -> (socketErr, dataUpdate)) = void $ do errorsTab = maybe (fatal "Could not make nonfatal errors visible") return =<< getElementById window "errors-tab" errors #+ [UI.li # set TP.text str] errorsTab # set style [("display", "inline-block")] + switchTab "errors" fatal :: String -> UI a fatal str = do (getBody window #) . set children =<< sequence [UI.p # set TP.text str # set UI.class_ "fatal"] -- cgit v1.2.3