Fix backtracking bug

2021-11-23 19:09:39 +00:00
parent 6e4b36fd82
commit a66ea1d922
6 changed files with 49 additions and 23 deletions
@@ -99,7 +99,7 @@ data RoomWire
     WallWire Point2 Float Float
 data RoomPos 
    = UsedOutLink Int    Point2  Float
-    | UsedInLink  Point2 Float
+    | UsedInLink Int  Point2 Float
    | UnusedLink Point2 Float
    | PosPl   Point2 Float
    | LabPos  Int    RoomPos