printErrorMsg :: String -> GuiMonad ()
printErrorMsg msg = ask >>= \content ->
                    let infoBuf = content ^. (gFunInfoConsole . infoConTBuffer) in
                    let infoTV = content ^. (gFunInfoConsole . infoConTView) in
                    io $ Console.printErrorMsg msg infoBuf infoTV
printErrorMsg :: String -> GuiMonad ()
printErrorMsg msg = ask >>= \content ->
                    let infoBuf = content ^. (gFunInfoConsole . infoConTBuffer) in
                    let infoTV = content ^. (gFunInfoConsole . infoConTView) in
                    io $ Console.printErrorMsg msg infoBuf infoTV
printErrorMsg msg = ask >>= \content ->
                    let infoBuf = content ^. (gFunInfoConsole . infoConTBuffer) in
                    let infoTV = content ^. (gFunInfoConsole . infoConTView) in
                    io $ Console.printErrorMsg msg infoBuf infoTV