haskanoid 0.1.3 → 0.1.4

raw patch · 4 files changed

+6/−7 lines, 4 filesdep ~Yampa

Dependency ranges changed: Yampa

Files

haskanoid.cabal +4/−4
src/Display.hs +1/−1
src/Game.hs +1/−1
src/Main.hs +0/−1

haskanoid.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.3+version:             0.1.4  -- A short (one-line) description of the package. synopsis:            A breakout game written in Yampa using SDL@@ -36,7 +36,7 @@ maintainer:          ivan.perez@keera.co.uk  -- A copyright notice.--- copyright:           +-- copyright:  category:            Game @@ -92,13 +92,13 @@                  Physics.TwoDimensions.Dimensions                  Physics.TwoDimensions.Physics                  Resources-  +   -- Other library packages from which modules are imported.   build-depends:       base ==4.6.*,                        transformers >= 0.3 && < 0.5,                        mtl,                        MissingH,-                       Yampa >= 0.9.6 && < 0.10,+                       Yampa >= 0.9.6 && < 0.11,                        SDL, SDL-image, SDL-mixer, SDL-ttf,                        IfElse

src/Display.hs view

@@ -102,7 +102,7 @@ audio resources shownState = do   -- Start bg music if necessary   playing <- musicPlaying-  when (not playing) $ awhen (bgMusic resources) playMusic +  unless playing $ awhen (bgMusic resources) playMusic     -- Play object hits   mapM_ (audioObject resources) $ gameObjects shownState

src/Game.hs view

@@ -304,7 +304,7 @@          -- Turn every object that wants to kill itself into          -- a function that removes it from the list          where es :: [Event (IL ObjectSF -> IL ObjectSF)]-               es = [ (harakiri oo `tag` (deleteIL k))+               es = [ harakiri oo `tag` (deleteIL k)                     | (k,oo) <- assocsIL oos ]         -- From the actual objects, detect which ones collide

src/Main.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE Arrows #-} import Control.Monad.IfElse import FRP.Yampa as Yampa