{-# 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)
              -> SF Input out
              -> IO ()