cShowTaxoGraph :: TaxoGraphKind -> String -> CmdlState -> IO CmdlState
cShowTaxoGraph kind input state =
  case i_state $ intState state of
    Nothing -> return state
    Just dgState ->
      do
        let (errors, nodes) = getInputDGNodes input dgState
        taxoShowGeneric kind state nodes
        return $ genMessage errors [] state
cShowTaxoGraph :: TaxoGraphKind -> String -> CmdlState -> IO CmdlState
cShowTaxoGraph kind input state =
  case i_state $ intState state of
    Nothing -> return state
    Just dgState ->
      do
        let (errors, nodes) = getInputDGNodes input dgState
        taxoShowGeneric kind state nodes
        return $ genMessage errors [] state
cShowTaxoGraph kind input state =
  case i_state $ intState state of
    Nothing -> return state
    Just dgState ->
      do
        let (errors, nodes) = getInputDGNodes input dgState
        taxoShowGeneric kind state nodes
        return $ genMessage errors [] state