ppDeclCG :: (VarDecl, CallGraph) -> IO ()
ppDeclCG (d, cg1) = do
  setSGR [Reset]
  putStrLn $ declHeader d
  let str1 = ppCallGraph cg1
  setSGR [SetColor Foreground Dull Blue]
  putStrLn $ str1
  setSGR [Reset]

-- Pretty print a parsed AST
ppDeclCG :: (VarDecl, CallGraph) -> IO ()
ppDeclCG (d, cg1) = do
  setSGR [Reset]
  putStrLn $ declHeader d
  let str1 = ppCallGraph cg1
  setSGR [SetColor Foreground Dull Blue]
  putStrLn $ str1
  setSGR [Reset]

-- Pretty print a parsed AST
ppDeclCG (d, cg1) = do
  setSGR [Reset]
  putStrLn $ declHeader d
  let str1 = ppCallGraph cg1
  setSGR [SetColor Foreground Dull Blue]
  putStrLn $ str1
  setSGR [Reset]

-- Pretty print a parsed AST