gui :: [CostCentre] -> IO ()
gui costCentres = do
  f <- WX.frame [WX.text := "Profile analyzer"]
  tree <- WX.treeCtrl f [] -- [WX.color := WX.rgb 255 255 255, WX.bgcolor := WX.rgb 0 0 0]
  root <- WXC.treeCtrlAddRoot tree "Cost centres" (-1) (-1) WX.objectNull
  addCostCentres tree root costCentres
  WXC.treeCtrlExpand tree root
  return ()
gui :: [CostCentre] -> IO ()
gui costCentres = do
  f <- WX.frame [WX.text := "Profile analyzer"]
  tree <- WX.treeCtrl f [] -- [WX.color := WX.rgb 255 255 255, WX.bgcolor := WX.rgb 0 0 0]
  root <- WXC.treeCtrlAddRoot tree "Cost centres" (-1) (-1) WX.objectNull
  addCostCentres tree root costCentres
  WXC.treeCtrlExpand tree root
  return ()
gui costCentres = do
  f <- WX.frame [WX.text := "Profile analyzer"]
  tree <- WX.treeCtrl f [] -- [WX.color := WX.rgb 255 255 255, WX.bgcolor := WX.rgb 0 0 0]
  root <- WXC.treeCtrlAddRoot tree "Cost centres" (-1) (-1) WX.objectNull
  addCostCentres tree root costCentres
  WXC.treeCtrlExpand tree root
  return ()