jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-28 01:33:35 +03:00
Code Issues Projects Releases Wiki Activity

Whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2023-12-17 16:41:21 -08:00
parent 10d247ec9a
commit 12fff78b9e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Brick/Forms.hs
View File

@ -903,7 +903,10 @@ entryBefore as a =
i' = if i == 0 then length as - 1 else i - 1
in as !! i'
withFocusAndGrouping :: (Eq n) => BrickEvent n e -> (n -> [n] -> EventM n (Form s e n) ()) -> EventM n (Form s e n) ()
withFocusAndGrouping :: (Eq n)
=> BrickEvent n e
-> (n -> [n] -> EventM n (Form s e n) ())
-> EventM n (Form s e n) ()
withFocusAndGrouping e act = do
foc <- gets formFocus
case focusGetCurrent foc of