jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-29 10:54:48 +03:00
Code Issues Projects Releases Wiki Activity

Typo

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-09 08:52:50 -07:00
parent 01499fbc37
commit c4b4f09d7a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Brick.hs
View File

@ -241,24 +241,24 @@ runVty draw chooseCursor handleEv state vty = do
Right newState -> runVty draw chooseCursor handleEv newState vty
data FocusRing = FocusRingEmpty
| FocusRingNonemtpy [Name] Int
| FocusRingNonempty [Name] Int
focusRing :: [Name] -> FocusRing
focusRing [] = FocusRingEmpty
focusRing names = FocusRingNonemtpy names 0
focusRing names = FocusRingNonempty names 0
focusNext :: FocusRing -> FocusRing
focusNext FocusRingEmpty = FocusRingEmpty
focusNext (FocusRingNonemtpy ns i) = FocusRingNonemtpy ns i'
focusNext (FocusRingNonempty ns i) = FocusRingNonempty ns i'
where
i' = (i + 1) `mod` (length ns)
focusPrev :: FocusRing -> FocusRing
focusPrev FocusRingEmpty = FocusRingEmpty
focusPrev (FocusRingNonemtpy ns i) = FocusRingNonemtpy ns i'
focusPrev (FocusRingNonempty ns i) = FocusRingNonempty ns i'
where
i' = (i + (length ns) - 1) `mod` (length ns)
focusGetCurrent :: FocusRing -> Maybe Name
focusGetCurrent FocusRingEmpty = Nothing
focusGetCurrent (FocusRingNonemtpy ns i) = Just $ ns !! i
focusGetCurrent (FocusRingNonempty ns i) = Just $ ns !! i