Haskell Gtk не работает диалог выбора файла

import Graphics.UI.Gtk

main = do
	initGUI
	win <- windowNew
	saveB <- buttonNew
	loadB <- buttonNew
	box <- vBoxNew False 10
	set win [windowTitle := "hello world",
			 containerBorderWidth := 10,
			 containerChild := box]
	set saveB [buttonLabel := "save"]
	set loadB [buttonLabel := "load"]
	boxPackStart box saveB PackGrow 0
	boxPackStart box loadB PackGrow 0
	onClicked saveB (getPath FileChooserActionSave print)
	onClicked loadB (getPath FileChooserActionOpen print)
	windowSetDefaultSize win 200 100
	windowSetPosition win WinPosCenter
	onDestroy win (mainQuit)
	widgetShowAll win
	mainGUI

getPath :: FileChooserAction -> (String -> IO ()) -> IO()
getPath act func = do
	print 1
	chs <- fileChooserWidgetNew act
{-	filt <- fileFilterNew
	fileFilterAddPattern filt "*.sav"
	fileChooserSetFilter chs filt
	print 2 -}
	mp <- fileChooserGetPreviewFilename chs
	print mp
	case mp of
		Just p -> func p
		Nothing -> return()