Cleanup

src/Dodge/Room/Link.hs

@@ -21,17 +21,15 @@ import Dodge.ShiftPoint
 import Dodge.Placement.Shift
 --import Dodge.LevelGen.Data
 import Dodge.Data
-import Dodge.RandomHelp
+import RandomHelp
 import Geometry
 import Data.Tile
 import Dodge.RoomLink
 
-import System.Random
 import Control.Monad.State
 import Control.Lens
 import Data.List
 import qualified Data.Set as S
---import System.Random
 
 chooseOneInLink :: RandomGen g => Room -> State g Room
 chooseOneInLink r = restrictToFstInLink <$> shuffleLinks r