Added keyboard events

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