[cvs-nhc98] Hat: use FFI for hGetChar (replaces hand-written primitive