Commit before messing with main inventory display

src/Dodge/Render/List.hs

@@ -1,5 +1,6 @@
 module Dodge.Render.List where
 
+--import Picture.Text
 import SelectionIntMap
 import qualified Data.IntMap.Strict as IM
 --import Data.Foldable
@@ -43,6 +44,7 @@ makeSelectionListPictures :: SelectionList a -> [Picture]
 makeSelectionListPictures sl = concatMap f $ getShownItems sl
   where
     f si = map (color (_siColor si) . text) $ _siPictures si
+    --f si = map (textGrad (_siColor si) (withAlpha 0 (_siColor si))) $ _siPictures si
 
 makeSelectionMapPictures :: SelectionIntMap a -> [Picture]
 makeSelectionMapPictures sl = foldMap f $ _smShownItems sl