Refactor, try to limit dependencies

src/Dodge/Room/Girder.hs

@@ -1,19 +1,20 @@
 module Dodge.Room.Girder where
-import Dodge.Data
-import RandomHelp
+
+import Color
+import Dodge.Data.GenWorld
 import Dodge.Room.Foreground
 import Dodge.Room.Modify.Girder
-import Color
+import RandomHelp
 
 addRandomGirderEW :: RandomGen g => Room -> State g Room
 addRandomGirderEW rm = do
     hgshape <- takeOne [girder 96 20 10, girderZ 96 20 10, girderV 96 20 10]
     lgshape <- takeOne [girder 60 20 10, girderZ 60 20 10, girderV 60 20 10]
-    addgird <- takeOne [ addGirderNS' hgshape black , addGirderNS' lgshape red ]
+    addgird <- takeOne [addGirderNS' hgshape black, addGirderNS' lgshape red]
     addgird rm
 
 addRandomGirderFrom :: RandomGen g => CardinalPoint -> Int -> Room -> State g Room
 addRandomGirderFrom cp i rm = do
-    (h,col) <- takeOne [(96,black),(60,red)]
-    gtype   <- takeOne [girder,girderZ,girderV]
+    (h, col) <- takeOne [(96, black), (60, red)]
+    gtype <- takeOne [girder, girderZ, girderV]
     return $ addGirderFrom cp i (gtype h 20 10) col rm