fontMapGetDefault :: IO FontMap
fontMapGetDefault = fmap FontMap $
    pango_cairo_font_map_get_default >>= newForeignPtr_
fontMapGetDefault :: IO FontMap
fontMapGetDefault = fmap FontMap $
    pango_cairo_font_map_get_default >>= newForeignPtr_
fontMapGetDefault = fmap FontMap $
    pango_cairo_font_map_get_default >>= newForeignPtr_