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 20:26:57 +02:00			`import Gtk`
Allow setting a startFile via cli 2014-10-01 21:47:54 +02:00			`import System.Environment`

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