hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: fix renameF callback

Browse Source
This commit is contained in:
Julian Ospald 2016-05-08 20:14:39 +02:00
parent 3af8b36940
commit db16dcbb5d
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HSFM/GUI/Gtk/Callbacks.hs
View File

@ -427,7 +427,7 @@ renameF [item] _ _ = withErrorDialog $ do
P.</> fn) ++ "\"?" P.</> fn) ++ "\"?"
withConfirmationDialog cmsg $ withConfirmationDialog cmsg $
HSFM.FileSystem.FileOperations.renameFile (path item) HSFM.FileSystem.FileOperations.renameFile (path item)
((path item) P.</> fn) ((P.dirname $ path item) P.</> fn)
renameF _ _ _ = withErrorDialog renameF _ _ _ = withErrorDialog
. throw $ InvalidOperation . throw $ InvalidOperation
"Operation not supported on multiple files" "Operation not supported on multiple files"