Refactor, try to limit dependencies
This commit is contained in:
@@ -10,7 +10,6 @@ import Dodge.Initialisation
|
||||
import Dodge.Update
|
||||
import Dodge.Event
|
||||
import Dodge.Render
|
||||
import Dodge.Config.KeyConfig
|
||||
import Dodge.Config.Load
|
||||
import Dodge.Config.Update
|
||||
import Dodge.SoundLogic.LoadSound
|
||||
@@ -20,7 +19,6 @@ import Preload.Render
|
||||
import Sound
|
||||
import Preload
|
||||
import Music
|
||||
import Data.Preload
|
||||
import Data.Preload.Render
|
||||
|
||||
import Control.Lens
|
||||
@@ -73,7 +71,6 @@ theCleanup uv = SDL.cursorVisible $= True >> cleanUpPreload (_preloadData uv)
|
||||
firstWorldLoad :: Configuration -> IO Universe
|
||||
firstWorldLoad theConfig = do
|
||||
SDL.cursorVisible $= False
|
||||
theKeyConfig <- loadKeyConfig
|
||||
pdata <- doPreload >>= applyWorldConfig theConfig
|
||||
return $ startNewGame $ Universe
|
||||
{_uvWorld = initialWorld
|
||||
@@ -81,7 +78,6 @@ firstWorldLoad theConfig = do
|
||||
,_preloadData = pdata
|
||||
,_menuLayers = []
|
||||
,_savedWorlds = M.empty
|
||||
,_keyConfig = theKeyConfig
|
||||
, _uvIOEffects = return
|
||||
, _uvTestString = testStringInit
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user