diff --git a/affection.cabal b/affection.cabal
--- a/affection.cabal
+++ b/affection.cabal
@@ -6,7 +6,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.0.0.2
+version:             0.0.0.3
 synopsis:            A simple Game Engine using SDL
 description:         This package contains Affection, a simple game engine
                      written in Haskell using SDL and GEGL.
diff --git a/src/Affection.hs b/src/Affection.hs
--- a/src/Affection.hs
+++ b/src/Affection.hs
@@ -16,7 +16,6 @@
 import qualified SDL.Raw as Raw
 import qualified GEGL as G
 
-import qualified Data.Text as T
 import Data.Maybe
 import Data.IORef
 
@@ -134,16 +133,16 @@
 
 preHandleEvents :: [SDL.Event] -> Affection us [SDL.Event]
 preHandleEvents evs =
-  catMaybes <$> mapM handle evs
+  mapM handle evs
   where
     handle e =
       case SDL.eventPayload e of
         SDL.WindowMovedEvent _ -> do
           liftIO $ traceIO "I was moved"
           putNewSurface
-          return Nothing
+          return e
         _ ->
-          return $ Just e
+          return e
     putNewSurface = do
       ad <- get
       (oldSurf, surface) <- liftIO $ getSurfaces $ drawWindow ad
diff --git a/src/Affection/Types.hs b/src/Affection/Types.hs
--- a/src/Affection/Types.hs
+++ b/src/Affection/Types.hs
@@ -85,7 +85,6 @@
   , drawDimensions  :: (Int, Int)   -- ^ Dimensions of target surface
   , drawStride      :: Int                -- ^ Stride of target buffer
   , drawCPP         :: Int                -- ^ Number of components per pixel
-  , clearStack      :: [DrawRequest]      -- ^ Stack of 'DrawRequest's to be invalidated
   , elapsedTime     :: Double             -- ^ Elapsed time in seconds
   }