jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-01 17:32:52 +03:00
Code Issues Projects Releases Wiki Activity

Whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-09 09:16:00 -07:00
parent 66fffdaaf3
commit d0d29e472d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
programs/Main.hs
View File

@ -30,7 +30,10 @@ handleEvent e st =
pickCursor :: St -> [CursorLocation] -> Maybe CursorLocation
pickCursor st ls =
listToMaybe $ filter (\cl -> cursorLocationName cl == (focusGetCurrent $ focus st)) ls
listToMaybe $ filter isCurrent ls
where
isCurrent cl = cursorLocationName cl ==
(focusGetCurrent $ focus st)
initialState :: St
initialState =