cga/Main.hs

11 lines
160 B
Haskell
Raw Normal View History

{-# OPTIONS_HADDOCK ignore-exports #-}
2014-10-01 18:26:57 +00:00
import Gtk
2014-10-01 19:47:54 +00:00
import System.Environment
2014-09-30 22:05:29 +00:00
main :: IO ()
2014-10-01 19:47:54 +00:00
main = do
a <- getArgs
2014-10-05 16:43:10 +00:00
makeGUI (if null a then "" else head a)