showNodeInfo :: LNode DGNodeLab -> String
showNodeInfo (i, l) =
  (if isDGRef l
     then ("reference " ++)
     else if isInternalNode l then ("internal " ++) else id)
  "node " ++ getDGNodeName l ++ " " ++ show i ++ "\n" ++ showDoc l ""
showNodeInfo :: LNode DGNodeLab -> String
showNodeInfo (i, l) =
  (if isDGRef l
     then ("reference " ++)
     else if isInternalNode l then ("internal " ++) else id)
  "node " ++ getDGNodeName l ++ " " ++ show i ++ "\n" ++ showDoc l ""
showNodeInfo (i, l) =
  (if isDGRef l
     then ("reference " ++)
     else if isInternalNode l then ("internal " ++) else id)
  "node " ++ getDGNodeName l ++ " " ++ show i ++ "\n" ++ showDoc l ""