From 35a9da34a00e0ce0c9cf549cc0cb15ccbf5cb5ff Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 16 Sep 2014 12:22:18 +0900
Subject: [PATCH] Revert "removing spaces."

This reverts commit 986eedcc75c4f369f536485d786b303b69989fe4.
---
 elisp/ghc-rewrite.el |  4 ++--
 src/GHCModi.hs       | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/elisp/ghc-rewrite.el b/elisp/ghc-rewrite.el
index e8087a9..14432f9 100644
--- a/elisp/ghc-rewrite.el
+++ b/elisp/ghc-rewrite.el
@@ -125,8 +125,8 @@
     (ghc-display nil
       (lambda ()
         (insert "Possible completions:\n")
-        (mapc
-          (lambda (x)
+        (mapc 
+          (lambda (x) 
             (let* (; (ins1      (insert "- "))
                    (pos-begin (point))
                    (ins       (insert x))
diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index b6666b7..45a9315 100644
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@@ -167,11 +167,11 @@ checkStx :: IOish m
          -> FilePath
          -> GhcModT m (String, Bool, Set FilePath)
 checkStx set file = do
---    set' <- newFileSet set file
---    let files = S.toList set'
-    eret <- check [file]
+    set' <- newFileSet set file
+    let files = S.toList set'
+    eret <- check files
     case eret of
-        Right ret -> return (ret, True, set)
+        Right ret -> return (ret, True, set')
         Left ret  -> return (ret, True, set) -- fxime: set
 
 newFileSet :: IOish m => Set FilePath -> FilePath -> GhcModT m (Set FilePath)
@@ -320,4 +320,4 @@ browseIt set mdl = do
                else browse mdl
     return (ret, True, set)
   where
-    setDetailed opt = opt { detailed = True }
+    setDetailed opt = opt { detailed = True }