createNodeTypes :: GInfo -> ConvFunc -> LibFunc
                -> [(DGNodeType, DaVinciNodeTypeParms GA.NodeValue)]
createNodeTypes gi cGraph showLib = map
  (\ (n, s, c) -> (n, if isRefType n
    then createMenuNodeRef s c gi cGraph showLib $ isInternalSpec n
    else createMenuNode s c gi $ isInternalSpec n)) $ nodeTypes $ hetcatsOpts gi
createNodeTypes :: GInfo -> ConvFunc -> LibFunc
                -> [(DGNodeType, DaVinciNodeTypeParms GA.NodeValue)]
createNodeTypes gi cGraph showLib = map
  (\ (n, s, c) -> (n, if isRefType n
    then createMenuNodeRef s c gi cGraph showLib $ isInternalSpec n
    else createMenuNode s c gi $ isInternalSpec n)) $ nodeTypes $ hetcatsOpts gi
createNodeTypes gi cGraph showLib = map
  (\ (n, s, c) -> (n, if isRefType n
    then createMenuNodeRef s c gi cGraph showLib $ isInternalSpec n
    else createMenuNode s c gi $ isInternalSpec n)) $ nodeTypes $ hetcatsOpts gi