I mean the (new/next) error message.
2009/3/31 Csaba Hruska
Thanks! I've added this code as a new module.
It fixed that error. Anyway here the error message:
*[ 96 of 166] Graphics.Rendering.OpenGL.GL.BeginEnd Determining Exports/Imports: [Graphics.Rendering.OpenGL.GL.BeginEnd] Typing: ["Graphics.Rendering.OpenGL.GL.BeginEnd"] Kind inference Type inference .....user error ( What: failure Why: boxyMatch failure: (Jhc.Prim.IO Jhc.Basics.()) (s17 -> Jhc.Prim.IO s18) Where: on line 100 in BeginEnd.hs_pre in the application Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim Control.Exception.bracket_ in the declaration Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive = Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim Control.Exception.bracket_ {- on line 100 -} in the explicitly typed Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive = Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrim Control.Exception.bracket_ {- on line 100 -}) *
2009/3/31 John Meacham
Hi, thanks for the bug report, I don't have time to work on it at the
moment, but a quick fix would be to create a module like the following and include it in your program. I'll add a cleaner fix to the repo at some point.
module FunPtrInstance where
import Jhc.Addr
instance Eq (FunPtr a) where FunPtr a == FunPtr b = a == b FunPtr a /= FunPtr b = a /= b
instance Ord (FunPtr a) where compare (FunPtr a) (FunPtr b) = compare a b FunPtr a <= FunPtr b = a <= b FunPtr a < FunPtr b = a < b FunPtr a > FunPtr b = a > b FunPtr a >= FunPtr b = a >= b
John
-- John Meacham - ⑆repetae.net⑆john⑈ _______________________________________________ jhc mailing list jhc@haskell.org http://www.haskell.org/mailman/listinfo/jhc