Cleanup warnings

src/Dodge/Initialisation.hs

@@ -1,10 +1,9 @@
 module Dodge.Initialisation where
--- imports {{{
 import Dodge.Default
 import Dodge.Data
 import Dodge.Data.Menu
 import Dodge.Creature
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Floor
 import Dodge.Layout
 
@@ -13,10 +12,6 @@ import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 
-import Foreign.ForeignPtr
-import Control.Concurrent
-import Data.Tree
-
 initializeWorld :: World -> World
 initializeWorld w = w