Added bullet texture and movement; restructured game state

1 files changed, 5 insertions, 1 deletions

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