Implement remote screen for launcher projectiles

src/Dodge/Combine.hs

@@ -25,7 +25,7 @@ import SimpleTrie
 invertInventoryToMap :: IM.IntMap Item -> M.Map ItemBaseType [Int]
 invertInventoryToMap =
     IM.foldrWithKey
-        (\k it -> (M.insertWith (++) (_iyBase $ _itType it) [k]))
+        (\k it -> M.insertWith (++) (_iyBase $ _itType it) [k])
         mempty
 
 groupSplitItemAmounts :: M.Map ItemBaseType [Int] -> [((ItAmount, ItemBaseType), [Int])]
@@ -39,7 +39,7 @@ flatLookupItems =
         . invertInventoryToMap
 
 combineItemListYouX :: World -> [([Int], Item)]
-combineItemListYouX = map (first $ concat) . flatLookupItems . yourInv
+combineItemListYouX = map (first concat) . flatLookupItems . yourInv
 
 combineList :: World -> [SelectionItem CombinableItem]
 combineList = map f . combineListInfo