diff options
Diffstat (limited to 'src/Thue/Interpreter.hs')
| -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 ":::") -> |