Cleanup

2024-10-25 21:05:32 +01:00
parent 6424899afd
commit f6c136cfd6
25 changed files with 334 additions and 333 deletions
@@ -1,5 +1,4 @@
 module Dodge.SelectionList (
-    getShownItems,
    getAvailableListLines,
 ) where

@@ -17,8 +16,3 @@ getAvailableListLines ldps cfig = floor ((dToBot - vgap) / itmHeight)
    dToBot =
        winy / 2 + winy * (ldps ^. ldpPos . spScreenOff . _y)
            + (ldps ^. ldpPos . spPixelOff . _y)
-
-getShownItems :: SelectionList a -> [SelectionItem a]
-getShownItems sl = case sl ^. slRegexList of
-    [] -> sl ^. slItems
-    xs -> fmap fst xs