Cleanup

2022-06-14 11:35:40 +01:00
parent 4a910566e6
commit 88e5f40f06
6 changed files with 30 additions and 36 deletions
@@ -30,7 +30,7 @@ glassLesson = do
        , treeFromPost ( (door & rmConnectsTo .~ S.member (OnEdge East)) 
            : corridors) $ cleatOnward door]
  where 
-    fromWest edge i s = S.member (OnEdge edge) s && S.member (FromWest i) s
+    fromWest edge i s = S.member (OnEdge edge) s && S.member ((FromEdge West) i) s
    uppers = Node (door & rmConnectsTo .~ fromWest North 0) [pure topRoom]
    botRoom = roomRect 200 200 1 1 
        & rmPmnts .~ botplmnts