Refactoring: add number parser

Minoru · Feb 27, 2010 · 1e514cd · 1e514cd
1 parent 5840c5f
commit 1e514cd
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/Parse.hs b/Parse.hs
@@ -198,9 +198,7 @@ parameterSubst = do
         d <- digit
         return $ Positional $ read [d]
 
-    positional = do
-        n <- many1 digit
-        return $ Positional $ read n
+    positional = fmap Positional number
 
     special = fmap Special $ oneOf "@*#?-$!0"
 
@@ -214,3 +212,9 @@ tokens = do
 main = do
     s <- getContents
     print $ parse tokens "" s
+
+--- Misc ---
+
+number = do
+    n <- many1 digit
+    return $ read n