Broken commit (removed loadKeyConfig)

src/Dodge/Room/Procedural.hs

@@ -231,8 +231,7 @@ randomFourCornerRoom = do
 {- | Creates room with a central vault with doors around it.
 -}
 centerVaultRoom
-    :: RandomGen g 
-    => Int      -- ^ Door id
+    :: Int      -- ^ Door id
     -> Float    -- ^ Width
     -> Float    -- ^ Height
     -> Float    -- ^ Vault dimensions