diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-14 03:47:21 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-14 03:47:21 +1000 |
| commit | 15109461d3fb4734f90c9d2663d1bf6e7dbc7e72 (patch) | |
| tree | d60ca7402a9be9b8f76af0dbd57d79ef12617494 | |
| parent | 07812f903e0d09b4bb8c2ff9ac4310eb0d3ab8ee (diff) | |
Now assumes version 1 unless specified otherwise
| -rw-r--r-- | src/Thue/Interpreter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Thue/Interpreter.hs b/src/Thue/Interpreter.hs index c9758a0..c3bdde2 100644 --- a/src/Thue/Interpreter.hs +++ b/src/Thue/Interpreter.hs @@ -56,7 +56,7 @@ applyRule :: ThueVersion -> ThueRule -> ThueState -> IO ThueState applyRule ver rule state = let (before, after) = fromJust (extractInfix (original rule) state) - inputProc = if (ver == Ver1) then return . tStr else return . tLitStr + inputProc = if (ver == Ver2a) then return . tLitStr else return . tStr in case (replacement rule) of x | x == (tStr ":::") -> |