cga/Main.hs

import Gtk
import System.Environment


main :: IO ()
main = do
  a <- getArgs
  case null a of
    False -> startGUI (head a)
    True  -> startGUI ""
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`
			`case null a of`
			`False -> startGUI (head a)`
			`True -> startGUI ""`