@@ -108,7 +108,7 @@ testJSaddle' showWindow f = do
108 debugLog "fork"
108 debugLog "fork"
109 _ <- forkIO $ do
109 _ <- forkIO $ do
110 debugLog "initGUI"
110 debugLog "initGUI"
111− _ <- Gtk.init Nothing
111+ _ <- Gtk.init mempty
112 debugLog "windowNew"
112 debugLog "windowNew"
113 window <- windowNew WindowTypeToplevel
113 window <- windowNew WindowTypeToplevel
114 debugLog "timeoutAdd"
114 debugLog "timeoutAdd"