summaryrefslogtreecommitdiff
path: root/src/Thue
diff options
context:
space:
mode:
Diffstat (limited to 'src/Thue')
-rw-r--r--src/Thue/Interpreter.hs2
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 ":::") ->