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

GTK: minor cleanup

Browse Source
This commit is contained in:
Julian Ospald 2016-05-09 00:52:22 +02:00
parent a25f92e4ec
commit 173c4cbddd
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,8 +59,6 @@ doFileOperation (FCopy (Copy (f':fs') to)) =
doFileOperation (FMove (Move (f':fs') to)) = doFileOperation (FMove (Move (f':fs') to)) =
_doFileOperation (f':fs') to moveFileOverwrite moveFile _doFileOperation (f':fs') to moveFileOverwrite moveFile
$ doFileOperation (FMove $ Move fs' to) $ doFileOperation (FMove $ Move fs' to)
where
doFileOperation _ = return () doFileOperation _ = return ()