From 15109461d3fb4734f90c9d2663d1bf6e7dbc7e72 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 14 Apr 2014 03:47:21 +1000 Subject: Now assumes version 1 unless specified otherwise --- src/Thue/Interpreter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Thue/Interpreter.hs') 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 ":::") -> -- cgit