-- show all information of selection
cInfoCurrent :: CmdlState -> IO CmdlState
cInfoCurrent state =
  case i_state $ intState state of
    -- nothing selected
    Nothing -> return state
    Just ps -> let (errors, nodes) = getSelectedDGNodes ps
                in if null nodes
                     then return $ genMsgAndCode errors 1 state
                     else cInfo (unwords $ nodeNames nodes) state
cInfoCurrent :: CmdlState -> IO CmdlState
cInfoCurrent state =
  case i_state $ intState state of
    -- nothing selected
    Nothing -> return state
    Just ps -> let (errors, nodes) = getSelectedDGNodes ps
                in if null nodes
                     then return $ genMsgAndCode errors 1 state
                     else cInfo (unwords $ nodeNames nodes) state
cInfoCurrent state =
  case i_state $ intState state of
    -- nothing selected
    Nothing -> return state
    Just ps -> let (errors, nodes) = getSelectedDGNodes ps
                in if null nodes
                     then return $ genMsgAndCode errors 1 state
                     else cInfo (unwords $ nodeNames nodes) state