From 15109461d3fb4734f90c9d2663d1bf6e7dbc7e72 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
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(-)

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