loadTexture :: FilePath -> IO (TextureObject, Size)
loadTexture fp = do
    eimg <- readImageRGBA fp
    case eimg of
        Left s -> error s
        Right img -> texFromImage img
loadTexture :: FilePath -> IO (TextureObject, Size)
loadTexture fp = do
    eimg <- readImageRGBA fp
    case eimg of
        Left s -> error s
        Right img -> texFromImage img
loadTexture fp = do
    eimg <- readImageRGBA fp
    case eimg of
        Left s -> error s
        Right img -> texFromImage img