Cleanup

2025-05-31 08:17:26 +01:00
parent cdf300b824
commit ceb7a4f04c
6 changed files with 99 additions and 133 deletions
@@ -9,10 +9,8 @@ import NewInt

 -- it is not obvious to me whether hotkeys should belong to LWorld, CWorld or
 -- World
-
 assignHotkey :: NewInt ItmInt -> Hotkey -> LWorld -> LWorld
-assignHotkey (NInt itid) hk lw =
-    lw
+assignHotkey (NInt itid) hk lw = lw
        & handleoldposition
        & hotkeys . at hk ?~ NInt itid
        & imHotkeys . unNIntMap . at itid ?~ hk