abstract + basic arg

[ekitaihs.git] / ekitai.hs

diff --git a/ekitai.hs b/ekitai.hs
deleted file mode 100644 (file)
index 9f24440..0000000
--- a/ekitai.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-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
-    }
-
-defaultOptions = Options
-    { optHelp       = False
-    , optColor      = False
-    }
-
-options :: [OptDescr (Options -> Options)]
-options =
-    [ Option ['h'] ["help"]
-        (NoArg (\ opts -> opts { optHelp = True }))
-        "display's this message"
-    , Option ['c'] ["color", "colour"]
-        (NoArg (\ opts -> opts { optColor = True }))
-        "enables color"
-    ]
-
-ekitaiOpts :: [String] -> Either String (Options, String)
-ekitaiOpts argv =
-    case getOpt RequireOrder options argv of
-        (o, n, []) -> undefined
-        (_, _, err) -> Left "invalid"
-
-main = do
-    argv <- getArgs
-    return 0
-