runCreation :: Options -> IO ()
runCreation opts = withAST opts $ \ast -> do
  let cr = if verbose opts then "\n" else ""
  withCatch $ createTree opts [] ast
  terminate $ cr ++ "Done creating entries."
runCreation :: Options -> IO ()
runCreation opts = withAST opts $ \ast -> do
  let cr = if verbose opts then "\n" else ""
  withCatch $ createTree opts [] ast
  terminate $ cr ++ "Done creating entries."
runCreation opts = withAST opts $ \ast -> do
  let cr = if verbose opts then "\n" else ""
  withCatch $ createTree opts [] ast
  terminate $ cr ++ "Done creating entries."