I mean the (new/next) error message.<br><br><div class="gmail_quote">2009/3/31 Csaba Hruska <span dir="ltr"><<a href="mailto:csaba.hruska@gmail.com">csaba.hruska@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Thanks!<br>I've added this code as a new module.<br><br>It fixed that error.<br>Anyway here the error message:<br><br><i>[ 96 of 166] Graphics.Rendering.OpenGL.GL.BeginEnd<br>Determining Exports/Imports: [Graphics.Rendering.OpenGL.GL.BeginEnd]<br>
Typing: ["Graphics.Rendering.OpenGL.GL.BeginEnd"]<div class="im"><br>Kind inference<br>Type inference<br>.....user error (<br>What: failure<br></div>Why: boxyMatch failure: (<a href="http://Jhc.Prim.IO" target="_blank">Jhc.Prim.IO</a> Jhc.Basics.()) (s17 -> <a href="http://Jhc.Prim.IO" target="_blank">Jhc.Prim.IO</a> s18)<br>
Where: on line 100 in BeginEnd.hs_pre<br>in the application<br> Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim<br> Control.Exception.bracket_<br>in the declaration<br> Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive<br>
= Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim<br> Control.Exception.bracket_ {- on line 100 -}<br>in the explicitly typed Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive<br> = Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim<br>
Control.Exception.bracket_ {- on line 100 -})<br></i><br><br><div class="gmail_quote">2009/3/31 John Meacham <span dir="ltr"><<a href="mailto:john@repetae.net" target="_blank">john@repetae.net</a>></span><div>
<div></div><div class="h5"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hi, thanks for the bug report, I don't have time to work on it at the<br>
moment, but a quick fix would be to create a module like the following<br>
and include it in your program. I'll add a cleaner fix to the repo at<br>
some point.<br>
<br>
> module FunPtrInstance where<br>
><br>
> import Jhc.Addr<br>
><br>
> instance Eq (FunPtr a) where<br>
> FunPtr a == FunPtr b = a == b<br>
> FunPtr a /= FunPtr b = a /= b<br>
><br>
> instance Ord (FunPtr a) where<br>
> compare (FunPtr a) (FunPtr b) = compare a b<br>
> FunPtr a <= FunPtr b = a <= b<br>
> FunPtr a < FunPtr b = a < b<br>
> FunPtr a > FunPtr b = a > b<br>
> FunPtr a >= FunPtr b = a >= b<br>
<br>
<br>
John<br>
<font color="#888888"><br>
<br>
--<br>
John Meacham - ⑆<a href="http://repetae.net" target="_blank">repetae.net</a>⑆john⑈<br>
_______________________________________________<br>
jhc mailing list<br>
<a href="mailto:jhc@haskell.org" target="_blank">jhc@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/jhc" target="_blank">http://www.haskell.org/mailman/listinfo/jhc</a><br>
</font></blockquote></div></div></div><br>
</blockquote></div><br>