From 335c10654f7d41053ffcabed19cb003d1c0ce13e Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Mon, 8 Mar 2010 22:13:35 +0100
Subject: Added bullet texture and movement; restructured game state

---
 GLDriver.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'GLDriver.hs')

diff --git a/GLDriver.hs b/GLDriver.hs
index ce84563..7340075 100644
--- a/GLDriver.hs
+++ b/GLDriver.hs
@@ -10,6 +10,7 @@ module GLDriver ( Driver(..)
                 , KeyPressEvent(..)
                 , KeyReleaseEvent(..)
                 , MouseMotionEvent(..)
+                , MousePressEvent(..)
                 ) where
 
 import Data.Typeable
@@ -60,4 +61,7 @@ instance Event KeyReleaseEvent
 
 
 data MouseMotionEvent = MouseMotionEvent Float Float deriving (Typeable, Show)
-instance Event MouseMotionEvent
\ No newline at end of file
+instance Event MouseMotionEvent
+
+data MousePressEvent = MousePressEvent Float Float deriving (Typeable, Show)
+instance Event MousePressEvent
-- 
cgit v1.2.3