affection 0.0.0.2 → 0.0.0.3

raw patch · 3 files changed

+4/−6 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Affection.Types: [clearStack] :: AffectionData us -> [DrawRequest]

- Affection.Types: AffectionData :: Bool -> us -> Window -> Surface -> Surface -> BablFormatPtr -> [DrawRequest] -> Ptr () -> (Int, Int) -> Int -> Int -> [DrawRequest] -> Double -> AffectionData us

+ Affection.Types: AffectionData :: Bool -> us -> Window -> Surface -> Surface -> BablFormatPtr -> [DrawRequest] -> Ptr () -> (Int, Int) -> Int -> Int -> Double -> AffectionData us

Files

affection.cabal +1/−1
src/Affection.hs +3/−4
src/Affection/Types.hs +0/−1

affection.cabal view

@@ -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.

src/Affection.hs view

@@ -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

src/Affection/Types.hs view

@@ -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   }