cga/Main.hs

11 lines
160 B
Haskell

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