Refactoring, add screen when generating level

2021-05-03 14:44:27 +02:00
parent 2bf23db935
commit 6e6757499c
19 changed files with 342 additions and 118 deletions
@@ -14,6 +14,6 @@ lockAndKeyRoomList :: RandomGen g =>
        )                                   ]
 lockAndKeyRoomList =
    [   ( fmap (pure . Right) armouredCorridor
-        , fmap (pure . Left) armouredChasers
+        , fmap (fmap Left) armouredChasers
        )
    ]