summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Syntactic.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Syntactic.hs b/Syntactic.hs
index 0abff0f..168aa4e 100644
--- a/Syntactic.hs
+++ b/Syntactic.hs
@@ -18,8 +18,8 @@ isComment = (==) '#' . head
isNumber :: String -> Bool
isNumber ('0':[]) = True
isNumber ('-':ns)
- | ns /= [] && head ns /= '0' = isNumber ns
-isNumber n = null . filter (not . isDigit) $ n
+ | (ns /= [] && head ns /= '0') = isNumber ns
+isNumber n = all (isDigit) n
isDigit :: Char -> Bool
@@ -37,7 +37,7 @@ isDigit _ = False
isName :: String -> Bool
-isName s = foldr (&&) True $ map ((==) '"') $ [head s, last s]
+isName s = all ((==) '"') [head s, last s]
scan :: String -> String