Remove SelectionIntMap

2023-02-19 09:59:09 +00:00
parent 8ec1dc0830
commit a88755bd75
8 changed files with 6 additions and 118 deletions
@@ -119,3 +119,6 @@ ssLookupGE' i sss = do
    case IM.lookupMin (ss ^. ssItems) of
        Just (j', si) -> return (i', j', si)
        Nothing -> ssLookupGT' i' sss
+
+getIthPos :: Int -> IM.IntMap (SelectionItem a) -> Int
+getIthPos i sm = sum . fmap _siHeight . fst $ IM.split i sm