diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-13 18:48:30 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-13 18:48:30 +1000 |
| commit | 71a9dca53149ecd7913fd244fe5922d4aa0b0803 (patch) | |
| tree | 5ba0f8ff84e882b1e20f7f338b3d0b5dd0b8ced0 /src/Thue/Test.hs | |
| parent | c01b04cbeb3be96fd4e65103526872392d79886f (diff) | |
More preparations for thuestates that aren't mere strings
Diffstat (limited to 'src/Thue/Test.hs')
| -rw-r--r-- | src/Thue/Test.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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") |