Cleanup

2022-06-14 13:15:25 +01:00
parent a280bbb787
commit 1b500afbf7
4 changed files with 35 additions and 48 deletions
@@ -9,10 +9,7 @@ addRandomGirderEW :: RandomGen g => Room -> State g Room
 addRandomGirderEW rm = do
    hgshape <- takeOne [girder 96 20 10, girderZ 96 20 10, girderV 96 20 10]
    lgshape <- takeOne [girder 60 20 10, girderZ 60 20 10, girderV 60 20 10]
-    addgird <- takeOne $
-        [ addGirderNS' hgshape black
-        , addGirderNS' lgshape red
-        ]
+    addgird <- takeOne [ addGirderNS' hgshape black , addGirderNS' lgshape red ]
    addgird rm

 addRandomGirderFrom :: RandomGen g => CardinalPoint -> Int -> Room -> State g Room