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

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.