From 986eedcc75c4f369f536485d786b303b69989fe4 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 16 Sep 2014 12:03:12 +0900
Subject: [PATCH] removing spaces.

---
 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 14432f9..e8087a9 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 45a9315..b6666b7 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 files
+--    set' <- newFileSet set file
+--    let files = S.toList set'
+    eret <- check [file]
     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 }