Commit before attempting to unify hammers for used items

src/Dodge/Combine/Graph.hs

@@ -49,7 +49,7 @@ maxShowX bt = case bt of
     MINIGUNX  _ -> Just 3
     GRAPECANNON _ -> Just 1
     LAUNCHERX _ -> Just 2
---    LASGUNWIDE _ -> Just 2
+    LASGUNWIDE _ -> Just 2
 --    LASGUNFOCUS _ -> Just 2
     _ -> Nothing
 
@@ -59,7 +59,7 @@ itemCombinationsEdges = concatMap (f . over _2 (_iyBase . _itType)) itemCombinat
   where
     f (abts,bt) 
         | bt `elem` bts = []
-        | any (not . belowNumX) bts = []
+        | (not . all belowNumX) bts = []
         | otherwise =  (CombNode $ Right abts,CombNode $  Left bt,0) :  map g abts
       where
         bts = map snd abts
@@ -96,7 +96,7 @@ myParams = defaultParams -- {globalAttributes = [GraphAttrs [RankDir FromLeft]]}
 --    & globalAttributesL .~ [GraphAttrs [RankDir FromLeft,Splines PolyLine]]
     & globalAttributesL .~ [GraphAttrs [RankDir FromLeft]]
     & clusterByL .~ clusterFunc
-    & isDotClusterL .~ (const False)
+    & isDotClusterL .~ const False
     & clusterIDL .~ setClusterID
     & fmtClusterL .~ clusterFormatting
     & fmtEdgeL .~ edgeFormatting