cga/Main.hs

import Gtk
import System.Environment


main :: IO ()
main = do
  a <- getArgs
  case null a of
    False -> makeGUI (head a)
    True  -> makeGUI ""
Move gui related stuff to Gtk module 2014-10-01 18:26:57 +00:00			`import Gtk`
Allow setting a startFile via cli 2014-10-01 19:47:54 +00:00			`import System.Environment`

Finalize and allow drawing 2014-09-30 22:05:29 +00:00
			`main :: IO ()`
Allow setting a startFile via cli 2014-10-01 19:47:54 +00:00			`main = do`
Improve error handling Checks the file extension before attempting to read the file. Also allow empty argument list. 2014-10-01 21:08:58 +00:00			`a <- getArgs`
Fix parsing error 2014-10-05 16:09:49 +00:00			`case null a of`
			`False -> makeGUI (head a)`
			`True -> makeGUI ""`