X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fprojects%2Ffpprac.git;a=blobdiff_plain;f=FPPrac.hs;fp=FPPrac.hs;h=e56c60458dd3fa75e655bd00c7505969b9dd922f;hp=68f5a535bf965038f4190cffeddb6a18eda18d1b;hb=68c76988596d764cc11eb7b7d9c7d25823892b78;hpb=c6b48b290e9bf48d7887286f07b5f2142574b42b diff --git a/FPPrac.hs b/FPPrac.hs index 68f5a53..e56c604 100644 --- a/FPPrac.hs +++ b/FPPrac.hs @@ -146,7 +146,7 @@ runGUI s = do -- it is closed. window <- Gtk.windowNew Gtk.set window [ Gtk.containerBorderWidth := 10 - , Gtk.windowTitle := "FP Practicum" ] + , Gtk.windowTitle := "FP Practicum" ] Gtk.onDestroy window Gtk.mainQuit -- Show the window and start the Gtk mainloop.