From 54658529a3c16d91ca9858538ed78635196591d4 Mon Sep 17 00:00:00 2001 From: Jed Barber 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