Work on collapsing close item list

src/Dodge/SelectionList.hs

@@ -5,6 +5,7 @@ import Regex
 import Dodge.Data.Universe
 import LensHelp
 import Data.Maybe
+--import Data.IntMap.Strict (IntMap)
 
 getAvailableListLines :: ListDisplayParams -> Configuration -> Int
 getAvailableListLines ldps cfig = floor ((dToBot - vgap) / itmHeight)
@@ -17,7 +18,7 @@ getAvailableListLines ldps cfig = floor ((dToBot - vgap) / itmHeight)
 getShownItems :: SelectionList a -> [SelectionItem a]
 getShownItems sl = case sl ^. slRegexList of
     [] -> sl ^. slItems
-    xs -> map fst xs
+    xs -> fmap fst xs
 
 makeRegexList :: SelectionList a -> [(SelectionItem a, Maybe Int)]
 makeRegexList sl = case sl ^. slRegex of