fwgl-0.1.2.0: FWGL/Backend/IO.hs

{-# LANGUAGE NullaryTypeClasses, TypeFamilies #-}

module FWGL.Backend.IO where

import FRP.Yampa
import FWGL.Backend.GLES
import FWGL.Input

class GLES => BackendIO where
        -- TODO: loadImage may fail
        loadImage :: String -> ((Image, Int, Int) -> IO ()) -> IO ()

        setup :: (Int -> Int -> Ctx -> IO state)
              -> (out -> Ctx -> state -> IO state)
              -> IO inp
              -> SF (Input inp) out
              -> IO ()