Unshadow window blocks when neighbour destroyed

src/Dodge/Base.hs

@@ -29,6 +29,12 @@ import Data.Maybe
 takeUntil :: Foldable t => (a -> Bool) -> t a -> [a]
 takeUntil p = foldr (\x xs -> x : if p x then [] else xs) []
 
+
+safeHead :: [a] -> Maybe a
+safeHead (x:_) = Just x
+safeHead _ = Nothing
+
+
 you :: World -> Creature
 you w = _creatures w IM.! _yourID w