Broken commit (removed loadKeyConfig)

src/Dodge/Room/Treasure.hs

@@ -14,7 +14,7 @@ import Geometry
 --import Data.List
 import Control.Monad.State
 --import Control.Lens
-import System.Random 
+--import System.Random 
 {- | A triangular room with loot at the top (with 'PutID' 2), 
 creatures in the bottom two corners (with 'PutID' 0), 
 and (single) entrance bottom middle.  -}
@@ -50,7 +50,7 @@ triLootRoom w h = pure $ defaultRoom
         ]
     base = rectNSWE 20 (-80) (-20) 20 
 {- | Create a random room with one entrance containing given creatures and items.  -}
-lootRoom :: RandomGen g => [Creature] -> [Item] -> State g Room
+lootRoom :: [Creature] -> [Item] -> State g Room
 lootRoom crs itms = do
     let w = 300
         h = 700