pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
+