Commit before moving targeting

src/Dodge/Update.hs

@@ -6,7 +6,6 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
---import Dodge.Inventory.SelectionList
 import Color
 import Control.Applicative
 import Data.List
@@ -654,7 +653,7 @@ updateSeenWalls :: World -> World
 updateSeenWalls w = foldl' markWallSeen w (map (_wlID . snd) $ allVisibleWalls w)
 
 markWallSeen :: World -> Int -> World
-markWallSeen w i = w & cWorld . lWorld . seenWalls . at i .~ Just ()
+markWallSeen w i = w & cWorld . seenWalls . at i .~ Just ()
 --markWallSeen !w !i = w & cWorld . lWorld . walls %~ IM.adjust markSeen i
 -- in the past there might have been a space leak, which the following was meant
 -- to fix