canvas/app/Classes/Renderable.hs
2020-02-06 14:41:06 +01:00

12 lines
250 B
Haskell

{-# LANGUAGE TypeFamilies #-}
module Classes.Renderable where
class Renderable a where
type VertexObjects a :: *
type ShaderObjects a :: *
type RenderableInfo a :: *
draw :: VertexObjects a -> ShaderObjects a -> RenderableInfo a -> IO ()