2014-10-06 21:14:23 +00:00
|
|
|
{-# 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
|
2014-10-01 21:08:58 +00:00
|
|
|
a <- getArgs
|
2014-10-05 16:43:10 +00:00
|
|
|
makeGUI (if null a then "" else head a)
|