From 82912f086863dcd90447e76da5379cf6c027e831 Mon Sep 17 00:00:00 2001
From: Erin van der Veen
Date: Thu, 5 Jul 2018 19:57:07 +0200
Subject: Whoops

---
 Assignment2/src/DTMC.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Assignment2/src/DTMC.icl b/Assignment2/src/DTMC.icl
index 3abb0ac..9f1e938 100644
--- a/Assignment2/src/DTMC.icl
+++ b/Assignment2/src/DTMC.icl
@@ -178,7 +178,7 @@ where
 	# (s, ss) = ss![fi]
 	= case s of
 		Nothing -> ss
-		(Just s) -> addVarsT fi (ti + 1) m {ss & [fi] = Just {s & transitions = alter (addVar fi ti) fi s.transitions}}
+		(Just s) -> addVarsT fi (ti + 1) m {ss & [fi] = Just {s & transitions = alter (addVar fi ti) ti s.transitions}}
 
 	addVar :: Int Int (Maybe String) -> Maybe String
 	addVar _ _ Nothing = Nothing
-- 
cgit v1.2.3