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

GUI: clean up copyFinal

Browse Source 
Don't show CopyModeChooserDialog for file copy operations.
This commit is contained in:
Julian Ospald 2015-12-20 05:32:11 +01:00
parent 98216a97c3
commit 5bfea0db10
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/GUI/Gtk/Callbacks.hs
View File

@ -170,13 +170,14 @@ copyFinal :: MyGUI -> MyView -> IO ()
copyFinal mygui myview = do copyFinal mygui myview = do
op <- readTVarIO (operationBuffer myview) op <- readTVarIO (operationBuffer myview)
case op of case op of
FCopy (CP1 sourceDir) -> do FCopy (CP1 source) -> do
curDir <- anchor <$> readTVarIO (fsState myview) dest <- anchor <$> readTVarIO (fsState myview)
let cmsg = "Really copy file \"" ++ sourceDir isFile <- doesFileExist source
++ "\"" ++ " to \"" ++ curDir ++ "\"?" let cmsg = "Really copy file \"" ++ source
++ "\"" ++ " to \"" ++ dest ++ "\"?"
withConfirmationDialog cmsg $ do withConfirmationDialog cmsg $ do
copyMode <- showCopyModeChooserDialog copyMode <- if isFile then return Strict else showCopyModeChooserDialog
withErrorDialog ((runFileOp . FCopy . CC sourceDir curDir $ copyMode) withErrorDialog ((runFileOp . FCopy . CC source dest $ copyMode)
>> refreshTreeView mygui myview Nothing) >> refreshTreeView mygui myview Nothing)
_ -> return () _ -> return ()