[cvs-nhc98] Use unsafePerform in a safer way, so that marshalling of s

[User olaf]

olaf: Tue Apr 30 18:46:52 CEST 2002

Update of /usr/src/master/nhc/src/hat/lib
In directory hinken:/tmp/cvs-serv28096

Modified Files:
	Hat.hs 
Log Message:
Use unsafePerform in a safer way, so that marshalling of strings and arrays also works with nhc98.

Also modified constUse to ensure that black hole errors are correctly located in the trace. However, the constUse is already evaluated when the black hole error occurs. So using a stack for entering/result would probably lead to wrong error position.