From 71a9dca53149ecd7913fd244fe5922d4aa0b0803 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Apr 2014 18:48:30 +1000 Subject: More preparations for thuestates that aren't mere strings --- src/Thue/Test.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Thue/Test.hs') diff --git a/src/Thue/Test.hs b/src/Thue/Test.hs index 0273c48..fcd8cde 100644 --- a/src/Thue/Test.hs +++ b/src/Thue/Test.hs @@ -16,9 +16,9 @@ instance Eq Text.Parsec.Error.ParseError -parser0 = (Right (ThueProgram [ThueRule "a" "b"] "a")) ~=? (parseThue "a::=b\n::=\na") +parser0 = (Right (ThueProgram [ThueRule (tStr "a") (tStr "b")] (tStr "a")) ) ~=? (parseThue "a::=b\n::=\na") -parser1 = (Right (ThueProgram [] "b")) ~=? (parseThue "::=\nb") +parser1 = (Right (ThueProgram [] (tStr "b")) ) ~=? (parseThue "::=\nb") -- cgit