cga/GtkMain.hs

11 lines
164 B
Haskell

{-# OPTIONS_HADDOCK ignore-exports #-}
import GUI.Gtk
import System.Environment
main :: IO ()
main = do
a <- getArgs
makeGUI (if null a then "" else head a)