From c28eb1976ae5fd9385932fe8a9db711d717f444f Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Mon, 28 Dec 2015 03:18:22 +0100
Subject: [PATCH] GTK: re-throw non-catched errors in withCopyModeDialog

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

diff --git a/src/GUI/Gtk/Dialogs.hs b/src/GUI/Gtk/Dialogs.hs
index de7ace1..a51f082 100644
--- a/src/GUI/Gtk/Dialogs.hs
+++ b/src/GUI/Gtk/Dialogs.hs
@@ -28,6 +28,7 @@ import Control.Applicative
 import Control.Exception
   (
     catch
+  , throw
   , try
   , SomeException
   )
@@ -130,6 +131,7 @@ withCopyModeDialog fa =
     case e of
       FileDoesExist _ -> doIt
       DirDoesExist  _ -> doIt
+      e               -> throw e
   where
     doIt = do cm <- showCopyModeDialog
               case cm of