abstract + basic arg

[ekitaihs.git] / Ekitai.hs

diff --git a/Ekitai.hs b/Ekitai.hs
new file mode 100644 (file)
index 0000000..e413b67
--- /dev/null
+++ b/Ekitai.hs
@@ -0,0 +1,10 @@
+import System.Environment
+
+import Parse
+
+main = do
+    argv <- getArgs
+    (opts, fname) <- ekitaiOpts argv
+    putStrLn fname
+    return 0
+