From b86b3245e00721f2dce0c506fc094c16fff01cff Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 13 Feb 2012 17:13:27 +0900
Subject: [PATCH] [Char]->String.

---
 elisp/ghc-info.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/elisp/ghc-info.el b/elisp/ghc-info.el
index a93a5e0..4c95c9d 100644
--- a/elisp/ghc-info.el
+++ b/elisp/ghc-info.el
@@ -125,7 +125,10 @@
      (lambda ()
        (cd cdir)
        (apply 'call-process ghc-module-command nil t nil
-	      `(,@(ghc-make-ghc-options) "type" ,file ,modname ,ln ,cn))))))
+	      `(,@(ghc-make-ghc-options) "type" ,file ,modname ,ln ,cn))
+       (goto-char (point-min))
+       (while (search-forward "[Char]" nil t)
+	 (replace-match "String"))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;