getClassInfo :: HscEnv -> [FilePath] -> IO [String]
getClassInfo hsc_env cp = do
    cp <- findInClassIndex hsc_env cp
    if null cp
    then return []
    else do
      jresult <- iservCmd hsc_env (GetClassInfo cp)
      let (notFounds, classInfos) = handleJResult jresult
      addToClassIndex hsc_env classInfos
      return notFounds
getClassInfo :: HscEnv -> [FilePath] -> IO [String]
getClassInfo hsc_env cp = do
    cp <- findInClassIndex hsc_env cp
    if null cp
    then return []
    else do
      jresult <- iservCmd hsc_env (GetClassInfo cp)
      let (notFounds, classInfos) = handleJResult jresult
      addToClassIndex hsc_env classInfos
      return notFounds
getClassInfo hsc_env cp = do
    cp <- findInClassIndex hsc_env cp
    if null cp
    then return []
    else do
      jresult <- iservCmd hsc_env (GetClassInfo cp)
      let (notFounds, classInfos) = handleJResult jresult
      addToClassIndex hsc_env classInfos
      return notFounds