Fix backtracking bug

2021-11-23 19:09:39 +00:00
parent 6e4b36fd82
commit a66ea1d922
6 changed files with 49 additions and 23 deletions
@@ -5,7 +5,7 @@ import Geometry
 extractRoomPos :: RoomPos -> (Point2,Float)
 extractRoomPos rp = case rp of
    UsedOutLink _  p a -> (p,a)
-    UsedInLink     p a -> (p,a)
+    UsedInLink  _  p a -> (p,a)
    UnusedLink p a -> (p,a)
    PosPl      p a -> (p,a)
    LabPos _ rp'   -> extractRoomPos rp'