GTK: fix umlaut in error dialogs

This commit is contained in:
Julian Ospald 2016-06-03 23:54:39 +02:00
parent 1fec2983bd
commit 7998ea33de
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 9 additions and 3 deletions

View File

@ -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))
]