canvas/app/Classes/Renderable.hs
2020-02-06 23:18:05 +01:00

13 lines
287 B
Haskell

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
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 ()