Implement basic config file

src/Loop.hs

@@ -15,19 +15,20 @@ import Preload
 
 import Control.Lens ((.~),(&),(+~))
 
+winConfig :: Int -> Int -> WindowConfig
 winConfig x y = defaultWindow 
     { windowGraphicsContext
         = OpenGLContext (defaultOpenGL { glProfile = Core Normal 4 3
                                        , glColorPrecision = V4 8 8 8 8
                                        } 
                         )
-    , windowInitialSize = V2 x y
+    , windowInitialSize = V2 (fromIntegral x) (fromIntegral y)
     , windowResizable =True
     }
 
 setupLoop :: String
-        -> CInt
-        -> CInt
+        -> Int
+        -> Int
         -> IO (PreloadData a)
         -> (PreloadData a -> IO ())
         -> world