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

GTK: remove debug prints

Browse Source
This commit is contained in:
Julian Ospald 2015-12-22 17:50:31 +01:00
parent 2ba9620fdc
commit 6a9d408925
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
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/GUI/Gtk/Callbacks.hs
View File

@ -144,8 +144,6 @@ copyFinal mygui myview = do
case op of case op of
FCopy (CP1 s) -> do FCopy (CP1 s) -> do
dest <- goUp mcdir dest <- goUp mcdir
print dest
print s
let cmsg = "Really copy \"" ++ fullPath s let cmsg = "Really copy \"" ++ fullPath s
++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?" ++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?"
withConfirmationDialog cmsg . withErrorDialog withConfirmationDialog cmsg . withErrorDialog