Add shrinkability and cursed items

src/Dodge/LevelGen/Data.hs

@@ -20,7 +20,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutProp Prop
     | PutFlIt Item
     | PutPressPlate PressPlate
-    | PutBlock BlockMaterial [Int] Color [Point2]
+    | PutBlock BlockMaterial [Int] Wall [Point2]
     | PutCoordinate Point2
     | PutMod Modification
     | PutTrigger (World -> Bool)

src/Dodge/LevelGen/Switch.hs

@@ -6,7 +6,6 @@ module Dodge.LevelGen.Switch
     ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Data.SoundOrigin
 import Dodge.SoundLogic
 import Picture
 import ShapePicture