diff options
-rw-r--r-- | cli/Main.hs (renamed from Main.hs) | 6 | ||||
-rw-r--r-- | cli/Makefile (renamed from Makefile) | 2 |
2 files changed, 3 insertions, 5 deletions
@@ -15,14 +15,12 @@ flagHandlerF :: [String] -> Int -> String -> ([String] -> String) -> String flagHandlerF args (-1) error fmessage = if (length args) == 0 then error - else - (fmessage args) + else fmessage args flagHandlerF args nargs error fmessage = if (length args) /= nargs then error - else - (fmessage args) + else fmessage args flagHandler :: String -> [String] -> String @@ -1,5 +1,5 @@ CC=ghc -FILES=Main.hs Math.hs +FILES=Main.hs ../Math.hs OUT=nd $(OUT): $(FILES) |