Allow setting a startFile via cli

2014-10-01 21:47:54 +02:00
parent fc80b95665
commit 3c140832bc
2 changed files with 8 additions and 3 deletions
--- a/Main.hs
+++ b/Main.hs
@@ -1,4 +1,8 @@
 import Gtk
+import System.Environment
+

 main :: IO ()
-main = startGUI
+main = do
+  [a] <- getArgs
+  startGUI a