createLayout :: Cairo s -> IO Layout
createLayout (Cairo c) = fmap Layout $
    pango_cairo_create_layout c
    >>= newForeignPtr p'g_object_unref
createLayout :: Cairo s -> IO Layout
createLayout (Cairo c) = fmap Layout $
    pango_cairo_create_layout c
    >>= newForeignPtr p'g_object_unref
createLayout (Cairo c) = fmap Layout $
    pango_cairo_create_layout c
    >>= newForeignPtr p'g_object_unref