readTexture :: ByteString -> IO (TextureObject, Size)
readTexture fp = do
    case decodeImageRGBA fp of
        Left s -> error s
        Right img -> texFromImage img
readTexture :: ByteString -> IO (TextureObject, Size)
readTexture fp = do
    case decodeImageRGBA fp of
        Left s -> error s
        Right img -> texFromImage img
readTexture fp = do
    case decodeImageRGBA fp of
        Left s -> error s
        Right img -> texFromImage img