Fix up deprecated functions

yi-editor · Dec 24, 2013 · 0e85094 · 0e85094
1 parent 9b38bf4
commit 0e85094
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/yi/src/library/Yi/UI/Pango/Utils.hs b/yi/src/library/Yi/UI/Pango/Utils.hs
@@ -6,6 +6,8 @@
 
 module Yi.UI.Pango.Utils where
 
+import Control.Exception (catch, throw)
+
 import Paths_yi
 import System.FilePath
 import Graphics.UI.Gtk
@@ -14,7 +16,10 @@ import System.Glib.GError
 loadIcon :: FilePath -> IO Pixbuf
 loadIcon fpath = do
   iconfile <- getDataFileName $ "art" </> fpath
-  icoProject <- catchGError (pixbufNewFromFile iconfile)
-                            (\(GError dom code msg) -> throwGError $ GError dom code $
-                             msg ++ " -- use the yi_datadir environment variable to specify an alternate location")
+  icoProject <-
+    catch (pixbufNewFromFile iconfile)
+    (\(GError dom code msg) ->
+      throw $ GError dom code $
+        msg ++ " -- use the yi_datadir environment variable to"
+            ++ " specify an alternate location")
   pixbufAddAlpha icoProject (Just (0,255,0))