canvas/app/Classes/Renderable.hs
2020-02-07 05:50:19 +01:00

12 lines
259 B
Haskell

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