Add support for one time sounds, crashes if more than 8 play at once

app/Main.hs

@@ -21,6 +21,8 @@ import Picture
 import Picture.Render
 import Picture.Preload
 
+import Sound
+
 import Preload
 
 import Control.Concurrent
@@ -61,6 +63,7 @@ main = do
                                             (wallsForGloom' w)
                                             (lightsForGloom' w)
                                             (draw blank w)
+                      playSoundQueue (_soundData preData) (_soundQueue w)
                       return preData
                       --renderPicture' preData (_windowX w,_windowY w) (Circle 5)
 --            renderPicture' preData