Cleanup and various bugfixes

2021-11-16 21:31:53 +00:00
parent ebe9ad6b90
commit 5d0b48829c
12 changed files with 103 additions and 39 deletions
@@ -92,14 +92,6 @@ data RoomPos
    | LabPos  Int    RoomPos
  deriving (Eq,Ord,Show)

-extractRoomPos :: RoomPos -> (Point2,Float)
-extractRoomPos rp = case rp of
-    OutLink _ p a   -> (p,a)
-    InLink  p a     -> (p,a)
-    UnusedLink p a  -> (p,a)
-    PosPl   p a     -> (p,a)
-    LabPos  _ rp'   -> extractRoomPos rp'
-
 makeLenses ''Room
 makeLenses ''PSType
 makeLenses ''PlacementSpot