Commit before changing module system to Map

2022-02-21 07:50:15 +00:00
parent 779e076c93
commit 724ee21afc
25 changed files with 171 additions and 86 deletions
@@ -6,4 +6,5 @@ import Control.Lens
 import Data.Maybe

 moduleSizes :: Item -> Int
-moduleSizes it = fromMaybe 0 $ it ^? itModules . modHitEffect . modSize
+moduleSizes it = (fromMaybe 0 $ it ^? itModules . modHitEffect . modSize)
+    + (fromMaybe 0 $ it ^? itModules . modRifleMag . modSize)