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

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
+