Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (10 sloc) 0.293 kb
module Util where
import PropLang.Gtk
import Data
import Graphics.UI.Gtk
errorMessage :: Data -> String -> IO ()
errorMessage dat msg = do
let parent = getWindowRaw (window dat)
md <- messageDialogNew (Just parent) [] MessageError ButtonsOk msg
dialogRun md
widgetHide md
Jump to Line
Something went wrong with that request. Please try again.