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