Do not repeat filename twice after :w command.

jun0 · Sep 3, 2012 · dc70cc0 · dc70cc0
1 parent bf5b459
commit dc70cc0
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/yi/src/library/Yi/File.hs b/yi/src/library/Yi/File.hs
@@ -115,15 +115,19 @@ viWrite = do
             bufInfo <- withBuffer bufInfoB
             let s   = bufInfoFileName bufInfo
             fwriteE
-            msgEditor $ show f ++ " " ++ show s ++ " written"
+            let message = if f == s then show f ++ " written"
+                                    else show f ++ " " ++ show s ++ " written"
+            msgEditor message
 
 -- | Try to write to a named file in the manner of vi\/vim
 viWriteTo :: String -> YiM ()
 viWriteTo f = do
     bufInfo <- withBuffer bufInfoB
     let s   = bufInfoFileName bufInfo
     fwriteToE f
-    msgEditor $ show f++" "++show s ++ " written"
+    let message = if f == s then show f ++ " written"
+                            else show f ++ " " ++ show s ++ " written"
+    msgEditor message
 
 -- | Try to write to a named file if it doesn't exist. Error out if it does.
 viSafeWriteTo :: String -> YiM ()