Cleanup

src/Dodge/Room/RunPast.hs

@@ -5,7 +5,7 @@ import Dodge.RoomLink
 import Dodge.Data
 --import Dodge.Default
 --import Dodge.Layout.Tree.Either
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.Room.Door
 --import Dodge.Room.Room
 import Dodge.Room.Link
@@ -27,7 +27,6 @@ import LensHelp
 
 import qualified Data.Set as S
 import Control.Monad.State
-import System.Random
 --import qualified Data.IntMap.Strict as IM
 
 horEdgeTest :: (Float -> Bool) -> ((Point2,Float) -> Bool)