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

GTK: re-throw non-catched errors in withCopyModeDialog

Browse Source
This commit is contained in:
Julian Ospald 2015-12-28 03:18:22 +01:00
parent 1738375432
commit c28eb1976a
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GUI/Gtk/Dialogs.hs
View File

@ -28,6 +28,7 @@ import Control.Applicative
import Control.Exception import Control.Exception
( (
catch catch
, throw
, try , try
, SomeException , SomeException
) )
@ -130,6 +131,7 @@ withCopyModeDialog fa =
case e of case e of
FileDoesExist _ -> doIt FileDoesExist _ -> doIt
DirDoesExist _ -> doIt DirDoesExist _ -> doIt
e -> throw e
where where
doIt = do cm <- showCopyModeDialog doIt = do cm <- showCopyModeDialog
case cm of case cm of