GTK: fix renameF callback

2016-05-08 20:14:39 +02:00 · 2016-05-08 20:14:39 +02:00 · db16dcbb5d
parent 3af8b36940
commit db16dcbb5d
1 changed files with 1 additions and 1 deletions
--- a/src/HSFM/GUI/Gtk/Callbacks.hs
+++ b/src/HSFM/GUI/Gtk/Callbacks.hs
@ -427,7 +427,7 @@ renameF [item] _ _ = withErrorDialog $ do
                                             P.</> fn) ++ "\"?"
    withConfirmationDialog cmsg $
      HSFM.FileSystem.FileOperations.renameFile (path item)
-                                                ((path item) P.</> fn)
+                                                ((P.dirname $ path item) P.</> fn)
 renameF _ _ _ = withErrorDialog
                  . throw $ InvalidOperation
                            "Operation not supported on multiple files"