[cvs-nhc98] Do not use `unsafePerformIO' inside an IO action.

malcolm: Wed Nov 21 14:49:09 CET 2001 Update of /usr/src/master/nhc/src/prelude/Hat In directory hinken:/tmp/cvs-serv16749 Modified Files: Hat.hs Log Message: Do not use `unsafePerformIO' inside an IO action.