Move config local to Dodge

src/Dodge/AIs.hs

@@ -9,8 +9,6 @@ import Dodge.Event
 import Dodge.RandomHelp
 import Dodge.WorldEvent
 
-import Dodge.Update.UsingInput
-
 import Geometry
 import Picture
 
@@ -21,15 +19,11 @@ import Data.Function
 import Data.Graph.Inductive.Graph
 import Data.Graph.Inductive.PatriciaTree
 import Data.Graph.Inductive.Query.SP
-import Codec.BMP
 import qualified Data.ByteString as B
 import Control.Lens
 import Control.Applicative
 import Control.Monad.State
 import Control.Monad
---import Control.Monad.Either
---import Control.Functor.Zip
-import qualified SDL as SDL
 
 import System.Random
 import qualified Data.Set as S
@@ -39,9 +33,6 @@ import qualified Data.Map as M
 import Foreign.ForeignPtr
 import Control.Concurrent
 
-import LoadConfig
----}
-
 factionIs :: Faction -> Creature -> Bool
 factionIs f c = (_faction $ _crState $ c) == f