hugsで length "日本語" => 3 にする

haskell

http://cvs.haskell.org/Hugs/pages/downloading.htm
から最新のhugsをダウンロードする
これで文字をUTF8として扱う。
export LANG=ja_JP.utf8
の環境下では length "日本語" => 3 となる

Prelude>　"日本語" 
"\26085\26412\35486"

なのが気持ち悪いので
http://www.tom.sfc.keio.ac.jp/~sakai/d/data/200312/hugs98-Mar2005-unicode-display.diff
のパッチをあてる 

% patch -p 1 < hugs98-Mar2005-unicode-display.diff
% ./configure --enable-char-encoding
% make
% sudo make install