summaryrefslogtreecommitdiff
path: root/Fractran
diff options
context:
space:
mode:
Diffstat (limited to 'Fractran')
-rw-r--r--Fractran/Parser.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Fractran/Parser.hs b/Fractran/Parser.hs
index 6d6cd86..95aa954 100644
--- a/Fractran/Parser.hs
+++ b/Fractran/Parser.hs
@@ -39,7 +39,8 @@ intPair = do
return (numerator,denominator)
-slash = char '/'
+slash = char '/'
+ <?> "slash character"
initVal = do
@@ -59,7 +60,8 @@ positiveNumber = do
return (read (firstDigit:rest))
-nonZeroDigit = oneOf "123456789"
+nonZeroDigit = oneOf "123456789"
+ <?> "non-zero digit"
whiteSpace = many (oneOf "\t\n\r ")