CrystalSplitter/ghcitui
1
1
Fork 0
mirror of https://github.com/CrystalSplitter/ghcitui.git synced 2024-09-11 10:55:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Wrap around module selections

Browse Source
This commit is contained in:
CrystalSplitter 2023-12-30 21:23:14 -08:00 committed by Jordan R AW
parent 34e494df37
commit 3661ebbbc7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/AppState.hs
View File

@ -222,7 +222,10 @@ changeReplWidgetSize amnt s =
changeSelectedModuleInInfoPanel :: Int -> AppState n -> AppState n
changeSelectedModuleInInfoPanel amnt s =
s{_infoPanelSelectedModule = _infoPanelSelectedModule s + amnt}
s{_infoPanelSelectedModule = newSelection }
where
newSelection = (_infoPanelSelectedModule s + amnt) `mod` numModules
numModules = length (Loc.moduleFileMapAssocs (Daemon.moduleFileMap (interpState s)))
getSelectedModuleInInfoPanel :: AppState n -> Int
getSelectedModuleInInfoPanel = _infoPanelSelectedModule