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

diff --git a/ekitai.hs b/ekitai.hs
deleted file mode 100644
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
-