Refactor sound

src/Dodge/Initialisation.hs

@@ -9,7 +9,7 @@ import Dodge.Layout
 import Dodge.Story
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
-import Dodge.SoundLogic.Synonyms
+import Dodge.SoundLogic.LoadSound
 --import Dodge.Creature.Perception
 import Geometry.Data
 --import Picture
@@ -47,7 +47,7 @@ initialWorld = defaultWorld
     , _mousePos = V2 0 0
     , _testString = testStringInit
     , _yourID = 0
-    , _worldEvents = soundFrom BackgroundSound (V2 0 0) foamSprayFadeOutSound Nothing 
+    , _worldEvents = soundFrom BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
         . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-3..5] , y <- [-5,-3..5]]
     , _pressPlates = IM.empty
     , _buttons = IM.empty