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

Core: use infix fmap

Browse Source
This commit is contained in:
Jonathan Daugherty 2021-06-29 08:14:58 -07:00
parent 7d0a87f102
commit bed6304cdd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Brick/Widgets/Core.hs
View File

@ -995,15 +995,15 @@ cropBottomTo rows p =
-- | When rendering the specified widget, also register a cursor
-- positioning request using the specified name and location.
showCursor :: n -> Location -> Widget n -> Widget n
showCursor n cloc p = Widget (hSize p) (vSize p) $
fmap (cursorsL %~ (CursorLocation cloc (Just n) True:)) (render p)
showCursor n cloc p = Widget (hSize p) (vSize p) $
(cursorsL %~ (CursorLocation cloc (Just n) True:)) <$> (render p)
-- | When rendering the specified widget, also register a cursor
-- positioning request using the specified name and location.
-- The cursor will only be positioned but not made visible.
putCursor :: n -> Location -> Widget n -> Widget n
putCursor n cloc p = Widget (hSize p) (vSize p) $
fmap (cursorsL %~ (CursorLocation cloc (Just n) False:)) (render p)
(cursorsL %~ (CursorLocation cloc (Just n) False:)) <$> (render p)
hRelease :: Widget n -> Maybe (Widget n)
hRelease p =