cga/Main.hs

{-# OPTIONS_HADDOCK ignore-exports #-}

import Gtk
import System.Environment


main :: IO ()
main = do
  a <- getArgs
  makeGUI (if null a then "" else head a)
Show haddock documentation for non-exports as well 2014-10-06 21:14:23 +00:00			`{-# OPTIONS_HADDOCK ignore-exports #-}`

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`
Style 2014-10-05 16:43:10 +00:00			`makeGUI (if null a then "" else head a)`