canvas/app/Classes/Renderable.hs
2020-02-07 14:57:09 +01:00

15 lines
325 B
Haskell

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