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

GTK: fix umlaut in error dialogs

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/HSFM/GUI/Gtk/Dialogs.hs
View File

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