First implementation of creatures detecting sounds

appDodge/Main.hs

@@ -26,7 +26,7 @@ import Control.Lens
 --import Foreign (Word32)
 import Control.Monad
 --import System.Random
-import qualified Data.Map                  as M
+--import qualified Data.Map                  as M
 import qualified Data.IntMap               as IM
 import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
 import qualified SDL
@@ -75,6 +75,7 @@ doSideEffects w = do
                 )
     newpdata <- foldr (=<<) (return (preData & frameTimer .~ endTicks)) (_doneSideEffects w)
     return $ w & preloadData .~ newpdata
+        & playingSounds .~ newPlayingSounds
 
 doPreload :: IO PreloadData
 doPreload = do