chapter 24 - bug fix in learning_parsers module

mukeshsoni · mukeshsoni · commit 231d82449982 · 2018-02-07T19:12:27.000+05:30
diff --git a/chapter24/learning-parsers/src/Main.hs b/chapter24/learning-parsers/src/Main.hs
@@ -68,4 +68,4 @@ main = do
   pNL "oneTwoThreeString'"
   testString' $ choice [oneTwoThreeString, oneTwoString, oneString]
   pNL "oneTwoThreeChar'"
-  testString' $ choice [one >> two >> three, one >> two, one]
+  testParse $ choice [one >> two >> three, one >> two, one]
