jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-30 06:02:02 +03:00
Code Issues Projects Releases Wiki Activity

Group type classes

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-17 10:02:45 -07:00
parent d5f3b0000c
commit 16605e46f8
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.hs
View File

@ -88,6 +88,9 @@ instance Default (App a e) where
data FocusRing = FocusRingEmpty data FocusRing = FocusRingEmpty
| FocusRingNonempty ![Name] !Int | FocusRingNonempty ![Name] !Int
class HandleEvent a where
handleEvent :: Event -> a -> a
class SetSize a where class SetSize a where
setSize :: DisplayRegion -> a -> a setSize :: DisplayRegion -> a -> a
@ -343,9 +346,6 @@ listInsert pos e l =
, listScroll = vScrollToView newSel (listScroll l) , listScroll = vScrollToView newSel (listScroll l)
} }
class HandleEvent a where
handleEvent :: Event -> a -> a
instance HandleEvent (List a) where instance HandleEvent (List a) where
handleEvent e theList = f theList handleEvent e theList = f theList
where where