Added simple main loop

1 files changed, 9 insertions, 3 deletions

diff --git a/GLDriver.hs b/GLDriver.hs
index e527d09..45ce982 100644
--- a/GLDriver.hs
+++ b/GLDriver.hs
@@ -1,14 +1,15 @@
-{-# LANGUAGE ExistentialQuantification #-}
+{-# LANGUAGE ExistentialQuantification, DeriveDataTypeable #-}
 
-module GLDriver ( GLDriver(..)
+module GLDriver ( Driver(..)
                 , Event
                 , SomeEvent(..)
+                , QuitEvent
                 ) where
 
 import Data.Typeable
 
 
-class GLDriver a where
+class Driver a where
     initialized :: a -> Bool
     
     initGL :: a -> IO a
@@ -23,3 +24,8 @@ data SomeEvent = forall a. Event a => SomeEvent a
 
 fromEvent :: Event a => SomeEvent -> Maybe a
 fromEvent (SomeEvent a) = cast a
+
+
+data QuitEvent = QuitEvent deriving Typeable
+
+instance Event QuitEvent
\ No newline at end of file