Cleanup console input slightly

2022-03-20 19:41:40 +00:00
parent ff93d1d041
commit 988a0de578
6 changed files with 39 additions and 41 deletions
@@ -87,12 +87,7 @@ getSplitString str = case break (==' ') str of
    (a, _) -> (a, "")

 isValidCommand :: String -> String -> Bool
-isValidCommand arg1 arg2
-    | arg2 `elem` v = True
-    | otherwise = False
-    where
-        v = validTerminalCommands arg1
-
+isValidCommand arg1 arg2 = arg2 `elem` validTerminalCommands arg1

 validTerminalCommands :: String -> [String]
 validTerminalCommands "set" = ["hp", "invcap", "invsel", "mass", "mvspeed"]