LIB/GTK: cleanup compiler warnings

2016-03-31 16:19:31 +02:00
parent 65595fa9c5
commit 4da3c92e5e
10 changed files with 90 additions and 152 deletions
--- a/src/HSFM/GUI/Gtk/MyGUI.hs
+++ b/src/HSFM/GUI/Gtk/MyGUI.hs
@@ -110,6 +110,7 @@ createMyGUI = do
  let mygui  = MkMyGUI {..}

  -- sets the default icon
-  windowSetDefaultIconFromFile =<< getDataFileName "data/Gtk/icons/hsfm.png"
+  _ <- windowSetDefaultIconFromFile
+         =<< getDataFileName "data/Gtk/icons/hsfm.png"

  return mygui