From cb9db4fd1ab4257c63ed7720f59f16c87e048fd9 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 27 Mar 2014 14:23:32 +0900
Subject: [PATCH] catching up the spec check.

---
 elisp/ghc-check.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index 403625b..f1f5591 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -218,8 +218,7 @@
     (goto-char (point-min))
     (while (re-search-forward "\\[Char\\]" nil t)
       (replace-match "String"))
-    (re-search-forward "\0" nil t)
-    (buffer-substring-no-properties (point-min) (1- (point)))))
+    (buffer-substring-no-properties (point-min) (point-max))))
 
 (defun ghc-get-function-name ()
   (save-excursion