11 lines
149 B
Haskell
11 lines
149 B
Haskell
import Gtk
|
|
import System.Environment
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
a <- getArgs
|
|
case null a of
|
|
False -> makeGUI (head a)
|
|
True -> makeGUI ""
|