Skip to content

Instantly share code, notes, and snippets.

import Graphics.UI.Gtk
import Graphics.Rendering.Cairo
main :: IO ()
main = do
initGUI
window <- windowNew
set window [windowTitle := "Hello Cairo 4",
windowDefaultWidth := 300, windowDefaultHeight := 200,
containerBorderWidth := 15 ]
{error,
{error,function_clause,
[{rabbit_mgmt_wm_exchange_publish,bad,
[{function_clause,
[{rabbit_exchange_type_lvc,route,
[{exchange,
{resource,<<"/">>,exchange,<<"cached_real_time_traffic_updates">>},
'x-lvc',true,false,false,[],undefined},
{delivery,true,false,<0.1091.0>,
{basic_message,