Make updateInventoryPositioning fire less often

ghcidOutput

@@ -1 +1 @@
-All good (597 modules, at 22:32:07)
+All good (597 modules, at 10:01:53)

src/Dodge/Data/DoubleTree.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
+--{-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Dodge.Data.DoubleTree
   where

src/Dodge/Update.hs

@@ -102,12 +102,12 @@ setClickWorldPos u = fmap
 updateWorldEventFlags :: Universe -> Universe
 updateWorldEventFlags u =
     (uvWorld . worldEventFlags .~ mempty)
-        . updateInventoryPositioning
         $ foldr updateWorldEventFlag u (u ^. uvWorld . worldEventFlags)
 
 updateWorldEventFlag :: WorldEventFlag -> Universe -> Universe
 updateWorldEventFlag wef = case wef of
-    InventoryChange -> id -- TODO determine more precisely when the inventory does change
+    --InventoryChange -> id -- TODO determine more precisely when the inventory does change
+    InventoryChange -> updateInventoryPositioning
     CombineInventoryChange -> updateCombinePositioning
 
 maybeOpenTerminal :: Universe -> Universe