removing spaces.

elisp/ghc-rewrite.el

@@ -125,8 +125,8 @@
     (ghc-display nil
       (lambda ()
         (insert "Possible completions:\n")
-        (mapc 
+        (mapc
-          (lambda (x) 
+          (lambda (x)
             (let* (; (ins1      (insert "- "))
                    (pos-begin (point))
                    (ins       (insert x))

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
+--    set' <- newFileSet set file
-    let files = S.toList set'
+--    let files = S.toList set'
-    eret <- check files
+    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 }