Working implementation of light change when door opens

src/Dodge/LevelGen/AutoDoor.hs

@@ -3,8 +3,7 @@
 Creation of doors that open when creatures approach them.
  -}
 module Dodge.LevelGen.AutoDoor
-    ( addAutoDoor
-    ) where
+    where
 import Dodge.Data
 import Dodge.Base
 import Dodge.Creature.Property
@@ -22,6 +21,6 @@ addAutoDoor
     -> Point2   -- ^ Right point (though the two points should be symmetric)
     -> World 
     -> World
-addAutoDoor a b = putDoubleDoor True (dim yellow) cond a b 3
+addAutoDoor a b = insertDoubleDoor True (dim yellow) cond a b 3
   where
     cond = any (crNearSeg 40 a b) . IM.filter isAnimate . _creatures