Cleanup

src/Dodge/Room/GlassLesson.hs

@@ -4,7 +4,7 @@ import Dodge.RoomLink
 import Dodge.Creature
 import Dodge.LevelGen.Data
 import Dodge.Data
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.Default.Wall
 import Dodge.Tree
 import Dodge.Placement.Instance
@@ -19,7 +19,6 @@ import LensHelp
 import qualified Data.Set as S
 import Control.Monad.State
 --import Control.Monad.Loops
-import System.Random
 glassLesson :: RandomGen g => State g (SubCompTree Room)
 glassLesson = do
     i <- takeOne [1,2,3]