blah

app/Classes/Renderable.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE AllowAmbiguousTypes #-}
 module Classes.Renderable where
 
 class Renderable a where

app/Renderer.hs

@@ -6,7 +6,7 @@ import qualified Graphics.Rendering.OpenGL as GL
 
 import Foreign
 
-initRenderData = do
+initSpriteRenderData = do
   quadVAO <- GL.genObjectName
   quadVBO <- GL.genObjectName
 

canvas.cabal

@@ -21,6 +21,7 @@ executable canvas
   main-is:             Main.hs
   other-modules:       Types
                        Types.UserData
+                       Classes.Renderable
                        Renderer
   -- other-extensions:
   build-depends:       base ^>=4.12.0.0