Add view debug option

src/Dodge/Room/Link.hs

@@ -8,11 +8,9 @@ the outgoing links.
 module Dodge.Room.Link
     where
 import Dodge.LevelGen
-import Dodge.LevelGen.Data
 import Dodge.Room.Data
 import Dodge.RandomHelp
 import Geometry
---import Geometry.Data
 import Data.Tile
 
 import System.Random
@@ -84,15 +82,6 @@ shiftLinkBy
     -> (Point2,Float)
 shiftLinkBy (pos,rot) (p,r) = (shiftPointBy (pos,rot) p, r + rot)
 
-shiftPSBy  
-    :: (Point2,Float) 
-    -> Placement
-    -> Placement
-shiftPSBy (pos,rot) ps = ps
-    & placementSpot . psPos %~ shiftPointBy (pos,rot)
-    & placementSpot . psRot %~ (+ rot)
-    & idPlacement %~ fmap (fmap $ shiftPSBy (pos,rot))
-
 shiftPathPointBy  
     :: (Point2,Float) 
     -> (Point2,Point2)