-- Bug report for Hugs Version Jan 2001 beta
-- (on SunOS 5.7 Generic_106541-11 sun4u sparc SUNW,Ultra-5_10)
import Observe
g p = (>p)
main = observe "hej" g 4 3
{-
Gives an ugly infinite report starting with
hej
{ \ 4 -> flip (default_comparexn (Make.Ord primCmpInteger
(default_compare (Make.Ord primCmpInteger (default_compare (Make.Ord
primCmpInteger
It also pollutes some state somewhere (when I break it with Ctrl-C)
because a following
observe "haj" "Patrik"
produces the same infinite garbage relating to the "hej" observation.
This is a minimalistic example, I ran into it in much bigger programs
(read PolyP) wither other kinds of overloading.
I would guess it has to do with presenting dictionary values.
/Patrik Jansson
PS. I quite like observe when it works.
-}
_______________________________________________
Hugs-Bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/hugs-bugs
