hasufell
860e7af61d
Checks the file extension before attempting to read the file. Also allow empty argument list.
11 lines
151 B
Haskell
11 lines
151 B
Haskell
import Gtk
|
|
import System.Environment
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
a <- getArgs
|
|
case null a of
|
|
False -> startGUI (head a)
|
|
True -> startGUI ""
|