cga/Main.hs

import Gtk
import System.Environment


main :: IO ()
main = do
  a <- getArgs
  case null a of
    False -> startGUI (head a)
    True  -> startGUI ""