X-Git-Url: https://git.danieliu.xyz/?a=blobdiff_plain;ds=inline;f=Ekitai.hs;fp=Ekitai.hs;h=e413b67de13c4f5c6ed8412d59d0504178486a6b;hb=5b8e53984e97f64f62f5c5f607322006dbddfabc;hp=0000000000000000000000000000000000000000;hpb=2c8009b8a19ed364cbe6bce607c8a6745d2dd5c0;p=ekitaihs.git

diff --git a/Ekitai.hs b/Ekitai.hs
new file mode 100644
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
+