Add first compo

app/Main.hs

@@ -8,7 +8,8 @@ import Dodge.Initialisation
 import Dodge.Update
 import Dodge.Event
 import Dodge.Render
-import Dodge.LoadConfig
+import Dodge.Config.Data
+import Dodge.Config.KeyConfig
 import Dodge.Config.Load
 import Dodge.Config.Update
 import Dodge.LoadSound
@@ -26,7 +27,7 @@ import Foreign (Word32)
 import Control.Monad (when,void)
 import System.Random
 import qualified Data.Map                  as M
-import qualified Data.IntMap                  as IM
+import qualified Data.IntMap               as IM
 import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
 import qualified SDL
 import qualified SDL.Mixer                 as Mix
@@ -63,7 +64,7 @@ doSideEffects preData w = do
     foldr (=<<) (return (preData & soundData . playingSounds .~ newPlayingSounds
                     & frameTimer .~ endTicks)) (_doneSideEffects w)
 
-doPreload' :: Dodge.LoadConfig.Configuration -> IO (PreloadData a)
+doPreload' :: Dodge.Config.Data.Configuration -> IO (PreloadData a)
 doPreload' config = do
     lChunks <- loadSounds
     lMusic  <- loadMusic
@@ -85,6 +86,7 @@ checkForGlErrors = do
     when (length errs > 0) $ putStrLn $ "GLerror during doLoop: " ++ unwords (map show errs)
 
 setWindowSize :: Int -> Int -> KeyConfigSDL-> World -> World
-setWindowSize x y z w = w & windowX .~ fromIntegral x
-                        & windowY .~ fromIntegral y
-                        & keyConfig .~ z
+setWindowSize x y z w = w 
+    & windowX .~ fromIntegral x
+    & windowY .~ fromIntegral y
+    & keyConfig .~ z