Delete cruft, add Reader monad to some internal ai

src/Dodge/LoadSound.hs

@@ -1,17 +1,13 @@
 module Dodge.LoadSound where
--- imports {{{
 import Dodge.Data
 
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
-
 import Control.Monad
 import Control.Lens
-
 import qualified SDL.Mixer as Mix
 
--- }}}
 loadSounds :: IO (IM.IntMap Mix.Chunk)
 loadSounds = do
     Mix.openAudio Mix.defaultAudio 128
@@ -57,7 +53,7 @@ loadSounds = do
     glass3' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A3.wav" 
     glass4' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A4.wav" 
     foamSpray' <- Mix.load "./data/sound/foamSprayLoop.wav" 
-    return $ IM.fromList $ zip [0..] $ 
+    return $ IM.fromList $ zip [0..]
         [ pFireSound
         , click
         , reloadSound'
@@ -105,6 +101,6 @@ loadSounds = do
 loadMusic :: IO (IM.IntMap Mix.Music)
 loadMusic = do
     undercity <- Mix.load "./data/music/firstCompo.mid"
-    return $ IM.fromList $ zip [0..] $
+    return $ IM.fromList $ zip [0..]
         [ undercity
         ]