Correctly add all obstructed paths to doors

src/Dodge/Placement/PlaceSpot/TriggerDoor.hs

@@ -14,11 +14,11 @@ import Picture
 import Geometry
 import qualified IntMapHelp as IM
 import Dodge.SoundLogic
+import LensHelp
 --import Dodge.LevelGen.LevelStructure
 
 --import Data.Maybe
 import Data.List
-import Control.Lens
 import qualified Data.IntSet as IS
 import qualified Data.Graph.Inductive as FGL
 import qualified Streaming.Prelude as S
@@ -53,7 +53,7 @@ addDoorWall drid wl w (wlid,wlps) = w'
         , _wlID = wlid
         , _wlStructure = DoorPart drid
         }
-    & doors . ix drid . drObstructs .~ es
+    & doors . ix drid . drObstructs .++~ es
   where
     (w',es) = uncurry (obstructPathsCrossing DoorObstacle) wlps w
 -- TODO use vector instead of list, perhaps also memoisation of rectanglePairs