Score rendering

app/Assets.hs

@@ -0,0 +1,18 @@
+module Assets where
+
+import SDL
+import qualified SDL.Image as IMG
+import qualified SDL.Font as FONT
+
+type Assets = (Texture, FONT.Font)
+
+loadAssets :: Renderer -> IO Assets
+loadAssets renderer = do
+    texture <- IMG.loadTexture renderer "assets/spritesheet.png"
+    font <- FONT.load "assets/font.ttf" 24
+    pure (texture, font)
+
+freeAssets :: Assets -> IO ()
+freeAssets (texture, font) = do
+    destroyTexture texture
+    FONT.free font