Cleanup

2022-06-14 12:55:40 +01:00
parent e1f3a774b2
commit a280bbb787
3 changed files with 9 additions and 33 deletions
@@ -15,14 +15,8 @@ addRandomGirderEW rm = do
        ]
    addgird rm

-addRandomGirderFromWest :: RandomGen g => Int -> Room -> State g Room
-addRandomGirderFromWest i rm = do
-    (h,col) <- takeOne [(96,black),(60,red)]
-    gtype   <- takeOne [girder,girderZ,girderV]
-    addGirderFromWest i (gtype h 20 10) col rm
-
 addRandomGirderFrom :: RandomGen g => CardinalPoint -> Int -> Room -> State g Room
 addRandomGirderFrom cp i rm = do
    (h,col) <- takeOne [(96,black),(60,red)]
    gtype   <- takeOne [girder,girderZ,girderV]
-    addGirderFrom cp i (gtype h 20 10) col rm
+    return $ addGirderFrom cp i (gtype h 20 10) col rm