Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -52,7 +52,7 @@ maxShowX = \case
    _ -> Nothing

 itemCombinationsEdges :: [(CombNode,CombNode,Int)]
-itemCombinationsEdges = concatMap (f . over _2 (_itType)) itemCombinations
+itemCombinationsEdges = concatMap (f . over _2 _itType) itemCombinations
 --itemCombinationsEdges = concatMap (f . over _2 (_iyBase . _itType)) bulletCombinations
  where
    f (abts,bt)