hunk ./if.hs 28
-  G.onClicked b (modifyIORef_ r pb_incr)
+  _ <- G.onClicked b (modifyIORef_ r pb_incr)
hunk ./if.hs 35
-  G.onClicked b (modifyMVar_ v pb_incr)
+  _ <- G.onClicked b (modifyMVar_ v pb_incr)
hunk ./if.hs 46
-  G.initGUI
+  _ <- G.initGUI
hunk ./if.hs 57
-  G.onDestroy w G.mainQuit
+  _ <- G.onDestroy w G.mainQuit