Cleanup

src/Dodge/Room/RoadBlock.hs

@@ -10,13 +10,12 @@ import Dodge.Placement.Instance
 import Dodge.Room.Corridor
 --import Dodge.LevelGen.Data
 --import Dodge.Default.Wall
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.Creature
 import Dodge.Tree
 
 import Control.Monad.State
 import Control.Lens
-import System.Random
 
 armouredCorridor :: RandomGen g => State g Room
 armouredCorridor = fmap (replacePutID 0 [PutCrit $ addArmour autoCrit]) litCorridor90