justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Make updateInventoryPositioning fire less often

Browse Source
This commit is contained in:
justin
2024-10-08 10:05:03 +01:00
parent 507c8e9819
commit 7783108515
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+1 -1
View File
@@ -1 +1 @@
All good (597 modules, at 22:32:07) All good (597 modules, at 10:01:53)
src/Dodge/Data/DoubleTree.hs
+1 -1
View File
@@ -1,6 +1,6 @@
{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-} --{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.DoubleTree module Dodge.Data.DoubleTree
where where
src/Dodge/Update.hs
+2 -2
View File
@@ -102,12 +102,12 @@ setClickWorldPos u = fmap
updateWorldEventFlags :: Universe -> Universe updateWorldEventFlags :: Universe -> Universe
updateWorldEventFlags u = updateWorldEventFlags u =
(uvWorld . worldEventFlags .~ mempty) (uvWorld . worldEventFlags .~ mempty)
. updateInventoryPositioning
$ foldr updateWorldEventFlag u (u ^. uvWorld . worldEventFlags) $ foldr updateWorldEventFlag u (u ^. uvWorld . worldEventFlags)
updateWorldEventFlag :: WorldEventFlag -> Universe -> Universe updateWorldEventFlag :: WorldEventFlag -> Universe -> Universe
updateWorldEventFlag wef = case wef of 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 CombineInventoryChange -> updateCombinePositioning
maybeOpenTerminal :: Universe -> Universe maybeOpenTerminal :: Universe -> Universe