Allow for more sounds to be playing at once

src/Dodge/SoundLogic/LoadSound.hs

@@ -25,7 +25,7 @@ loadSounds = do
     putStrLn $ show y <> " channels assigned to group 1"
     fmap IM.fromList $ mapM loadSound $ zip [0..] soundPathList
   where
-    nchans = 64::Int
+    nchans = 128::Int
 
 loadMusic :: IO (IM.IntMap Mix.Music)
 loadMusic = do