Cleanup

2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
@@ -1,10 +1,15 @@
 module Dodge.Equipment where
-import Dodge.Data

+--import Data.Strict.IntMap.Autogen.Merge.Strict
+import Data.IntMap.Merge.Strict
+import Dodge.Data
 import qualified IntMapHelp as IM
-import Data.Strict.IntMap.Autogen.Merge.Strict
--import Data.IntMap.Merge.Strict

 getCrEquipment :: Creature -> IM.IntMap Item
-getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)
-    (_crInvEquipped cr)  (_crInv cr) 
+getCrEquipment cr =
+    merge
+        dropMissing
+        dropMissing
+        (zipWithMatched $ \_ _ -> id)
+        (_crInvEquipped cr)
+        (_crInv cr)