Cleanup

src/Dodge/Room/Airlock.hs

@@ -9,12 +9,11 @@ import Dodge.Default.Wall
 import Dodge.Data
 import Dodge.LevelGen.Data
 import Dodge.LevelGen.Switch
-import Dodge.RandomHelp
+import RandomHelp
 import Geometry
 import Picture
 
 import qualified Data.IntMap.Strict as IM
-import System.Random
 import Control.Monad.State
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room