Cleanup preload, add basic frame time checking

src/Preload.hs

@@ -17,21 +17,9 @@ doPreload :: IO (PreloadData a)
 doPreload = do
     sData <- preloadSound
     rData <- preloadRender
-    return $ PreloadData rData sData 0 0 0 0 0 0 0 0 0
+    return $ PreloadData rData sData 0
 
 cleanUpPreload :: PreloadData a -> IO ()
 cleanUpPreload pd = do
     cleanUpRenderPreload $ _renderData pd
     cleanUpSoundPreload $ _soundData pd
-
-showTiming :: PreloadData a -> IO ()
-showTiming pd = do
-    putStrLn $ "Time rendering: " ++ show (_renderTime pd)
-    putStrLn $ "Time renderingLighting: " ++ show (_renderLighting pd)
-    putStrLn $ "Time renderingPicture: " ++ show (_renderPicture pd)
-    putStrLn $ "Time sim-ing: " ++ show (_simTime pd)
-    putStrLn $ "Time mixing: " ++ show (_mixerTime pd)
-    putStrLn $ "Time idle: " ++ show (_idleTime pd)
-    putStrLn $ "Time gc: " ++ show (_gcTime pd)
-    putStrLn $ "Time pokeing: " ++ show (_pokeTime pd)
-