Cleanup

2022-06-14 13:15:25 +01:00
parent a280bbb787
commit 1b500afbf7
4 changed files with 35 additions and 48 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 ((FromEdge West) i) s
+    fromWest edge i s =  OnEdge edge `S.member` s &&  FromEdge West i `S.member` s
    uppers = Node (door & rmConnectsTo .~ fromWest North 0) [pure topRoom]
    botRoom = roomRect 200 200 1 1 
        & rmPmnts .~ botplmnts