Work on sensor machines, remove some datatypes associated with placements

src/Dodge/LevelGen.hs

@@ -12,7 +12,6 @@ import Dodge.Data
 import Dodge.LevelGen.Block
 import Dodge.LevelGen.Pathing
 import Dodge.LevelGen.StaticWalls
-import Dodge.LevelGen.AutoDoor
 import Dodge.LevelGen.TriggerDoor
 import Dodge.LevelGen.Switch
 import Dodge.LevelGen.Data
@@ -59,10 +58,8 @@ placeSpotID ps w = case _psType ps of
       where 
         mapBoth fn (x,y) = (fn x, fn y) 
     PutSingleDoor col f a b speed 
-        -> putSingleDoor False col f (doShift a) (doShift b) speed w
-    PutDoubleDoor col f a b speed 
-        -> (,) 0 $ insertDoubleDoor False col f (doShift a) (doShift b) speed w
-    PutAutoDoor a b -> (,) 0 $ addAutoDoor (doShift a) (doShift b) w
+        -> placeSingleDoor False col f (doShift a) (doShift b) speed w
+    --PutAutoDoor a b -> (,) 0 $ placeAutoDoor (doShift a) (doShift b) w
     PutBlock (hp:hps) col ps' -> placeBlock (map doShift ps') hp col Opaque hps w
     PutBlock{} -> error "messed up block placement somehow"
     PutBtDoor c bp f a b speed -> addButtonDoor c (doShift bp) (f + rot)