Move toward implementing chasms

src/Dodge/Placement/PlaceSpot.hs

@@ -7,7 +7,7 @@ module Dodge.Placement.PlaceSpot (
 ) where
 
 import Color
-import Control.Lens
+import LensHelp
 import Control.Monad.State
 import Data.Bifunctor
 import Data.Foldable
@@ -140,6 +140,7 @@ placeSpotID' ps pt w = case pt of
     PutUsingGenParams f ->
         let (w', pt') = f w
          in placeSpotID' ps pt' w'
+    PutChasm ps' -> (0, w & cWorld . chasms .:~ map doShift ps')
   where
     p@(V2 px py) = _psPos ps
     p' = V3 px py 0