Start splitting off creature control more sensibly

src/Dodge/SelectionSections.hs

@@ -20,7 +20,7 @@ scrollSelectionSections yi sss
 -- when is this used? it needs to correctly set the cursor
 firstPosSelectionSections :: SelectionSections a -> SelectionSections a
 firstPosSelectionSections sss = fromMaybe sss $ do
-    (i, j, si) <- ssLookupMin sss
+    (i, j, _) <- ssLookupMin sss
     return $
         sss
             & sssSelPos ?~ (i, j)
@@ -34,7 +34,7 @@ firstPosSelectionSections sss = fromMaybe sss $ do
 scrollUpSelectionSections :: SelectionSections a -> SelectionSections a
 scrollUpSelectionSections sss = fromMaybe (firstPosSelectionSections sss) $ do
     (i, j) <- sss ^? sssSelPos . _Just
-    (i', j', si) <- ssLookupUp i j sss
+    (i', j', _) <- ssLookupUp i j sss
     return $ sss & sssSelPos ?~ (i', j')
 
 --        & sssSections . ix i' . ssCursor ?~ SectionCursor j' j' (_siHeight si) (_siColor si)
@@ -42,8 +42,7 @@ scrollUpSelectionSections sss = fromMaybe (firstPosSelectionSections sss) $ do
 scrollDownSelectionSections :: SelectionSections a -> SelectionSections a
 scrollDownSelectionSections sss = fromMaybe (firstPosSelectionSections sss) $ do
     (i, j) <- sss ^? sssSelPos . _Just
-    --    j <- sss ^? sssSections . ix i . ssCursor . _Just . scurSel
-    (i', j', si) <- ssLookupDown i j sss
+    (i', j', _) <- ssLookupDown i j sss
     return $ sss & sssSelPos ?~ (i', j')
 
 --        & sssSections . ix i' . ssCursor ?~ SectionCursor j' j' (_siHeight si) (_siColor si)
@@ -53,7 +52,7 @@ ssSetCursor ::
     SelectionSections a ->
     SelectionSections a
 ssSetCursor f sss = fromMaybe sss $ do
-    (i, j, si) <- f sss
+    (i, j, _) <- f sss
     return $
         sss
             & sssSelPos ?~ (i, j)
@@ -120,5 +119,5 @@ ssLookupGE' i sss = do
         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
+--getIthPos :: Int -> IM.IntMap (SelectionItem a) -> Int
+--getIthPos i sm = sum . fmap _siHeight . fst $ IM.split i sm