diff options
Diffstat (limited to 'GLDriver.hs')
| -rw-r--r-- | GLDriver.hs | 12 |
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 |