canvas/app/Classes/Renderable.hs

13 lines
287 B
Haskell
Raw Normal View History

2020-02-06 13:41:06 +00:00
{-# LANGUAGE TypeFamilies #-}
2020-02-06 22:18:05 +00:00
{-# LANGUAGE AllowAmbiguousTypes #-}
2020-02-06 13:41:06 +00:00
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 ()