Fix bug not adding last positioned room to list

2021-11-23 12:50:15 +00:00
parent 05bb1961c0
commit f51a6a7216
6 changed files with 33 additions and 21 deletions
@@ -32,8 +32,8 @@ import Control.Lens
 import System.Random
 --import qualified Data.IntMap.Strict as IM

-minigunfakeout :: RandomGen g => State g (SubCompTree Room)
-minigunfakeout = do
+minigunFakeout :: RandomGen g => State g (SubCompTree Room)
+minigunFakeout = do
    rcol <- rezColor
    ncor <- state $ randomR (0,2)
    roomwithmini <- randomiseAllLinks $ roomRectAutoLinks 150 150