Optimize initialization time

1 files changed, 12 insertions, 4 deletions

diff --git a/src/Chelleport/Context.hs b/src/Chelleport/Context.hs
index 15c0b6a..3c2c850 100644
--- a/src/Chelleport/Context.hs
+++ b/src/Chelleport/Context.hs
@@ -3,6 +3,8 @@ module Chelleport.Context (initializeContext) where
 import Chelleport.Types
 import Data.ByteString (ByteString)
 import Data.FileEmbed (embedFileRelative)
+-- import Data.Time.Clock.System
+-- import qualified Debug.Trace as Debug
 import Foreign.C (CFloat)
 import qualified Graphics.X11 as X11
 import SDL (($=))
@@ -15,10 +17,18 @@ windowOpacity = 0.5
 fontSize :: Int
 fontSize = 24
 
+-- benchmark :: String -> IO a -> IO a
+-- benchmark msg m = do
+--   start <- systemNanoseconds <$> getSystemTime
+--   result <- m
+--   end <- systemNanoseconds <$> getSystemTime
+--   Debug.traceM $ msg ++ ": " ++ show (end - start)
+--   pure result
+
 initializeContext :: IO DrawContext
 initializeContext = do
   -- Initialize SDL
-  SDL.initializeAll
+  SDL.initialize [SDL.InitVideo, SDL.InitEvents]
   TTF.initialize
 
   window <- initializeWindow
@@ -60,6 +70,4 @@ initializeWindow = do
             SDL.windowInitialSize = SDL.V2 0 0,
             SDL.windowBorder = False
           }
-  window <- SDL.createWindow "Chelleport" windowCfg
-  SDL.showWindow window
-  pure window
+  SDL.createWindow "Chelleport" windowCfg