justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2023-02-11 13:42:08 +00:00
parent 24825728f5
commit b5db7a3420
9 changed files with 49 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Combine.hs
+3 -2
View File
@@ -47,7 +47,8 @@ combineItemListYouX = map (first $ concatMap g) . lookupItems . yourInv
combineList :: World -> [SelectionItem CombinableItem]
combineList w = case combineList' w of
[] -> [SelectionInfo ["No possible combinations"] 1 False 0 white 0]
-- [] -> [SelectionInfo ["No possible combinations"] 1 False 0 white 0]
[] -> [SelectionInfo ["No possible combinations"] 1 False white 0]
xs -> xs
combineList' :: World -> [SelectionItem CombinableItem]
@@ -57,7 +58,7 @@ combineList' = map f . combineListInfo
{ _siPictures = itemDisplay itm
, _siHeight = length (itemDisplay itm)
, _siIsSelectable = True
, _siWidth = maximum (map length (itemDisplay itm))
--, _siWidth = maximum (map length (itemDisplay itm))
, _siColor = _itInvColor itm
, _siOffX = 0
, _siPayload = CombinableItem is itm strs