Cleanup

2021-11-23 22:33:23 +00:00
parent ddd120dee1
commit 5f6d81bd05
10 changed files with 65 additions and 53 deletions
@@ -3,9 +3,4 @@ import Dodge.LevelGen.Data
 import Geometry

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