diff options
Diffstat (limited to 'GLDriver.hs')
| -rw-r--r-- | GLDriver.hs | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/GLDriver.hs b/GLDriver.hs index 9fb2642..2b55c6f 100644 --- a/GLDriver.hs +++ b/GLDriver.hs @@ -4,9 +4,12 @@ module GLDriver ( Driver(..) , SomeDriver(..) , Event , SomeEvent(..) + , fromEvent , QuitEvent(..) , ResizeEvent(..) - , fromEvent + , Key(..) + , KeyPressEvent(..) + , KeyReleaseEvent(..) ) where import Data.Typeable @@ -45,3 +48,13 @@ instance Event QuitEvent data ResizeEvent = ResizeEvent Int Int deriving Typeable instance Event ResizeEvent + + +data Key = KeyLeft | KeyRight | KeyUp | KeyDown + deriving (Eq, Ord, Show) + +data KeyPressEvent = KeyPressEvent Key deriving Typeable +instance Event KeyPressEvent + +data KeyReleaseEvent = KeyReleaseEvent Key deriving Typeable +instance Event KeyReleaseEvent |