Remove _decorations

src/Dodge/Placement/PlaceSpot.hs

@@ -119,7 +119,6 @@ placeSpotID' ps pt w = case pt of
             w
     PutCrit cr -> plNewUpID (cWorld . lWorld . creatures) crID (mvCr p rot cr) w
     PutForeground fs -> plNewUpID (cWorld . lWorld . foregroundShapes) fsID (mvFS p rot fs) w
-    PutDecoration pic -> plNewID (cWorld . lWorld . decorations) (shiftDec p rot pic) w
     PutMachine pps mc wl -> plMachine (map doShift pps) mc wl p rot w
     PutLS ls -> plNewUpID (cWorld . lWorld . lightSources) lsID (mvLS p' rot ls) w
     PutPPlate pp -> plNewUpID (cWorld . lWorld . pressPlates) ppID (mvPP p rot pp) w
@@ -148,9 +147,6 @@ placeSpotID' ps pt w = case pt of
     rot = _psRot ps
     doShift = shiftPointBy (p, rot)
 
-shiftDec :: Point2 -> Float -> Picture -> Picture
-shiftDec p r = uncurryV translate p . rotate r
-
 evaluateRandPS :: State StdGen PSType -> PlacementSpot -> World -> (Int, World)
 evaluateRandPS rgen ps w = placeSpotID' ps evaluatedType (set randGen g w)
   where