Define room link datatypes

2021-11-23 13:00:34 +00:00
parent f51a6a7216
commit 67b0d694af
6 changed files with 25 additions and 14 deletions
@@ -4,8 +4,8 @@ import Geometry

 extractRoomPos :: RoomPos -> (Point2,Float)
 extractRoomPos rp = case rp of
-    OutLink _  p a -> (p,a)
-    InLink     p a -> (p,a)
+    UsedOutLink _  p a -> (p,a)
+    UsedInLink     p a -> (p,a)
    UnusedLink p a -> (p,a)
    PosPl      p a -> (p,a)
    LabPos _ rp'   -> extractRoomPos rp'