wxhaskell ноутбук с изображениемTag segfaults

Question

Я просто не могу получить imageTab для запуска. Я получаю Segmentation fault: 11. Это мой код. Кто-нибудь знает, что делать?

import Graphics.UI.WX 
import Graphics.UI.WXCore 

main :: IO() 
main = start gui 

gui :: IO() 
gui = do 
    f <- frame [] 
    fp <- panel f [] 

    nb <- notebook fp [] 
    page <- panel nb [] 
    b <- button page [ text := "-"] 


    let bm = bitmap "favicon.ico" 
    -- check that bitmap is there 
    sx <- bitmapGetHeight bm 
    print sx 

    set f [ layout := container fp $ tabs nb [imageTab "Foo" bm (container page $ fill $ widget b)]] 

    -- This works 
    --set f [ layout := container fp $ tabs nb [tab "Foo" (container page $ fill $ widget b)]] 

Answer 1

Это похоже на ошибку; вы можете лучше сообщить об этом в http://sourceforge.net/p/wxhaskell/bugs/