diff --git a/haskanoid.cabal b/haskanoid.cabal
--- a/haskanoid.cabal
+++ b/haskanoid.cabal
@@ -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
 
diff --git a/src/Display.hs b/src/Display.hs
--- a/src/Display.hs
+++ b/src/Display.hs
@@ -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
diff --git a/src/Game.hs b/src/Game.hs
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -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
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE Arrows #-}
 import Control.Monad.IfElse
 import FRP.Yampa as Yampa