From 5b8e53984e97f64f62f5c5f607322006dbddfabc Mon Sep 17 00:00:00 2001
From: Daniel Liu <mr.picklepinosaur@gmail.com>
Date: Fri, 30 Apr 2021 19:48:39 -0400
Subject: [PATCH] abstract + basic arg

---
 Ekitai.hs             | 10 ++++++++++
 ekitai.hs => Parse.hs | 16 ++++++----------
 2 files changed, 16 insertions(+), 10 deletions(-)
 create mode 100644 Ekitai.hs
 rename ekitai.hs => Parse.hs (68%)

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
+
diff --git a/ekitai.hs b/Parse.hs
similarity index 68%
rename from ekitai.hs
rename to Parse.hs
index 9f24440..26a0390 100644
--- a/ekitai.hs
+++ b/Parse.hs
@@ -1,11 +1,10 @@
+module Parse ( ekitaiOpts ) where
+
 import System.Console.GetOpt
 import System.Environment
-import System.Exit
 import Data.Maybe
 import Data.Either
 
-data Flag 
-
 data Options = Options
     { optHelp       :: Bool
     , optColor      :: Bool
@@ -26,13 +25,10 @@ options =
         "enables color"
     ]
 
-ekitaiOpts :: [String] -> Either String (Options, String)
+ekitaiOpts :: [String] -> IO (Options, String)
 ekitaiOpts argv =
     case getOpt RequireOrder options argv of
-        (o, n, []) -> undefined
-        (_, _, err) -> Left "invalid"
-
-main = do
-    argv <- getArgs
-    return 0
+        (o, [n], []) -> return (foldl (flip id) defaultOptions o, n)
+        (o, _, [])   -> ioError $ userError $ "must supply input file"
+        (_, _, errs)  -> ioError $ userError $ (concat errs)
 
-- 
2.20.1