Haskell 在屏幕上渲染纹理

我对Haskell和OpenGL都是新手，我正在尝试在屏幕上渲染纹理

以下是到目前为止我得到的信息：

makeTexture:：FilePath->IO GL.TextureObject
makeTexture f=do
t IO（）
渲染性e=do
GL.activeTexture GL.$=GL.TextureUnit 0
GL.textureBinding GL.Texture2D GL.$=Just（纹理$e型）
--我在屏幕上看到一个白色三角形。
renderTriangle$fmap（vadd$position e）（点$model e:：[Vector2]）
--我看不到这一点。三角形也没有纹理。
总帐渲染初始总帐四元$do
n 0 1 0
t 0 1>>v 10（-10）10
t1>>v10（-10）-10
t 10>>v（-10）-10（-10）
t0>>v（-10）-10
其中v x y z=GL.vertex（GL.Vertex3 x y z:：GL.Vertex3 GL.GLfloat）
n x y z=GL.normal（GL.Normal3 x y z:：GL.Normal3 GL.GLfloat）
t u v=GL.texCoord（GL.TexCoord2 u v:：GL.TexCoord2 GL.GLfloat）

其中，

实体

看起来像：

---

texMetal似乎我的坐标不正确，因为这很好：

renderEntity:：Entity->IO（）
渲染性e=do
GL.activeTexture GL.$=GL.TextureUnit 0
GL.textureBinding GL.Texture2D GL.$=Just（纹理$e型）
总帐渲染初始总帐四元$do
v 100 100
T01
v 100（-100）
T1 1
v（-100）（-100）
T10
v（-100）100
T00
其中v x y=GL.vertex（GL.Vertex2 x y:：GL.Vertex2 GL.GLfloat）
t u v=GL.texCoord（GL.TexCoord2 u v:：GL.TexCoord2 GL.GLfloat）
着色器在哪里？它是什么上下文版本？