some cleaning

src/Affection.hs

@@ -16,7 +16,6 @@ import qualified SDL.Internal.Numbered as SDL (toNumber)
 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 @@ getSurfaces window = do
 
 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

src/Affection/Types.hs

@@ -85,7 +85,6 @@ data AffectionData us = AffectionData
   , 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
   }