Add analysing machine

2022-03-21 09:14:32 +00:00
parent 13e8ea85d2
commit 51cc04799d
7 changed files with 102 additions and 15 deletions
@@ -35,7 +35,7 @@ makeLenses ''PosRooms

 positionRoomsFromTree :: Tree RoomInt -> IO (Maybe PosRooms)
 positionRoomsFromTree (Node (r,i) ts) = printColumnTitles 
-    >> fmap (fmap (prRooms %~ (map $ first createUnusedLinkPos)))
+    >> fmap (fmap (prRooms %~ map (first createUnusedLinkPos)))
        (posRms (PosRooms (map pointsToPoly $ _rmBound r') []) (r',i) (zipCount ts) Empty)
  where
    r' = r & rmMID ?~ 0