Refactor window block

src/Dodge/Initialisation.hs

@@ -7,18 +7,6 @@ import Dodge.Base
 import Dodge.Floor
 import Dodge.Layout
 
-import Data.List
-import Data.Char
-import Data.Maybe
-import Data.Function
-import Data.Graph.Inductive.Graph
-import Data.Graph.Inductive.PatriciaTree
-import Codec.BMP
-import qualified Data.ByteString as B
-import Control.Lens
-import Control.Applicative
-import Control.Monad.State
-import Control.Monad
 import System.Random
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
@@ -53,7 +41,6 @@ initialWorld = basicWorld
                 , _pressPlates = IM.empty
                 , _buttons = IM.empty
                 , _soundQueue = []
---                , _loadedSounds = IM.empty
                 , _sounds = M.empty
                 , _decorations = IM.empty
                 , _storedLevel = Nothing