cpuBar :: Cpu -> Int -> BarConfig -> CpuBar
cpuBar cpu ms conf = item $ do
  bar <- liftIO $ barNew conf
  i   <- liftIO $ readStat cpu
  runCpuBar cpu ms i bar
  return $ PanelItem (show cpu ++ "Bar") (Gtk.toWidget bar) Gtk.PackNatural
cpuBar :: Cpu -> Int -> BarConfig -> CpuBar
cpuBar cpu ms conf = item $ do
  bar <- liftIO $ barNew conf
  i   <- liftIO $ readStat cpu
  runCpuBar cpu ms i bar
  return $ PanelItem (show cpu ++ "Bar") (Gtk.toWidget bar) Gtk.PackNatural
cpuBar cpu ms conf = item $ do
  bar <- liftIO $ barNew conf
  i   <- liftIO $ readStat cpu
  runCpuBar cpu ms i bar
  return $ PanelItem (show cpu ++ "Bar") (Gtk.toWidget bar) Gtk.PackNatural