wxHaskell: окно кажется слишком маленьким

У меня есть небольшая программа на Haskell, использующая wxhaskell. Он отображает окно с панелью внутри, содержащей некоторые рисунки. Проблема в том, что окно сжимается до совсем крошечных размеров, и мне приходится расширять его мышкой.

Как правильно определить размер?

вот моя программа:

module Main where
import Graphics.UI.WX
import Graphics.UI.WXCore

main :: IO ()
main
  = start hello

hello :: IO ()
hello = do 
        f    <- frame    [text := "HELLO!"]
        sw <- panel f [ on paint := onpaint]
        set f   [clientSize  := sz 300 300,
                layout := fill $ widget sw]
        return()

    where 
        onpaint dc pnel = do 
            circle dc (pt 200 200) 20 [penKind := PenDash DashDot]
            drawPoint dc (pt 200 200) []

Спасибо.