12 lines
250 B
Haskell
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 ()
|