From 54658529a3c16d91ca9858538ed78635196591d4 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 11 Feb 2014 11:45:17 +1100
Subject: Fixed whitespace parsing bug in Fractran parser
---
Fractran/Parser.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Fractran/Parser.hs b/Fractran/Parser.hs
index 576f8a0..6d6cd86 100644
--- a/Fractran/Parser.hs
+++ b/Fractran/Parser.hs
@@ -24,18 +24,18 @@ parseFractran = parse fractran "error"
fractran = do
+ whiteSpace
value <- initVal
fractionList <- many intPair
- whiteSpace
eof
return (FractranProgram fractionList value)
intPair = do
- whiteSpace
numerator <- wholeNumber
slash
denominator <- positiveNumber
+ whiteSpace
return (numerator,denominator)
@@ -43,8 +43,8 @@ slash = char '/'
initVal = do
- whiteSpace
value <- wholeNumber
+ whiteSpace
return value
--
cgit