Changed matchedText to be different for different completionTypes.

src/Hspec.hs

@@ -219,7 +219,6 @@ completionTests = do
       ":! cd *" `shouldHaveCompletionsInDirectory` (map encodeString ["" </> "dir/"
                                                                       , "" </> "file1.hs"
                                                                       , "" </> "file1.lhs"])
-
 evalTests = do
   describe "Code Evaluation" $ do
     it "evaluates expressions" $  do

src/IHaskell/Eval/Completion.hs

@@ -66,7 +66,11 @@ complete line pos = do
       moduleNames = nub $ concatMap getNames db
 
   let target = completionTarget line pos
-      matchedText = intercalate "." target
+
+  let matchedText = case completionType line pos target of 
+        HsFilePath path -> path 
+        FilePath   path -> path 
+        otherwise       -> intercalate "." target
 
   options <-
         case completionType line pos target of