From 7998ea33de3d46e7dd24b2184d32e1513fb36656 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Fri, 3 Jun 2016 23:54:39 +0200
Subject: [PATCH] GTK: fix umlaut in error dialogs

---
 src/HSFM/GUI/Gtk/Dialogs.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/HSFM/GUI/Gtk/Dialogs.hs b/src/HSFM/GUI/Gtk/Dialogs.hs
index f84ec5c..d61e9c3 100644
--- a/src/HSFM/GUI/Gtk/Dialogs.hs
+++ b/src/HSFM/GUI/Gtk/Dialogs.hs
@@ -21,12 +21,16 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 module HSFM.GUI.Gtk.Dialogs where
 
 
+import Codec.Binary.UTF8.String
+  (
+    decodeString
+  )
 import Control.Exception
   (
-    displayException
+    catches
+  , displayException
   , throwIO
   , IOException
-  , catches
   , Handler(..)
   )
 import Control.Monad
@@ -220,7 +224,9 @@ withErrorDialog :: IO a -> IO ()
 withErrorDialog io =
   catches (void io)
     [ Handler (\e -> showErrorDialog
-                       $ displayException (e :: IOException))
+                       . decodeString
+                       . displayException
+                       $ (e :: IOException))
     , Handler (\e -> showErrorDialog
                        $ displayException (e :: HPathIOException))
     ]