From 9288be7ff7803e90e273d3e7da68c415bf01c247 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Tue, 22 Dec 2015 19:50:07 +0100
Subject: [PATCH] GTK: readd copy mode dialog

---
 src/GUI/Gtk/Callbacks.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs
index eb6a93d..1d2d93e 100644
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -146,8 +146,9 @@ copyFinal mygui myview = withErrorDialog $ do
       dest <- goUp mcdir
       let cmsg = "Really copy \"" ++ fullPath s
                  ++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?"
+      cm <- showCopyModeChooserDialog
       withConfirmationDialog cmsg
-        (runFileOp (FCopy . CC s dest $ Strict)
+        (runFileOp (FCopy . CC s dest $ cm)
          >> refreshTreeView mygui myview Nothing)
       return ()
     _ -> return ()