Enable duct taping torches to rifles

2022-07-14 11:32:32 +01:00
parent 2cfa3ca3a7
commit 79791d0df2
18 changed files with 109 additions and 154 deletions
@@ -327,7 +327,7 @@ spawnerRoom = do

 corDoor :: State StdGen (MetaTree Room String)
 corDoor = do
-    cor <- (shuffleLinks $ cleatOnward corridor) <&> rmPmnts .~ []
+    cor <- shuffleLinks (cleatOnward corridor) <&> rmPmnts .~ []
    return $ tToBTree "corDoor" $ treePost [door,cor]
 --    cor <- shuffleLinks corridor
 --    return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]