ilyakooo0/intellij-haskell
1
0
Fork 0
mirror of https://github.com/ilyakooo0/intellij-haskell.git synced 2024-08-17 10:40:44 +03:00
Code Issues Projects Releases Wiki Activity

Improve finding module file

Browse Source
This commit is contained in:
Rik van der Kleij 2019-10-09 21:18:10 +02:00
parent cd122ba5ef
commit 0ad6468379
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/main/scala/intellij/haskell/util/HaskellProjectUtil.scala
View File

@ -110,17 +110,12 @@ object HaskellProjectUtil {
directory.listFiles.find(_.getName == "package.yaml")
}
def getProjectAndLibrariesModulesSearchScope(project: Project): GlobalSearchScope = {
val projectModules = findProjectHaskellModules(project).map(m => GlobalSearchScope.moduleWithDependenciesAndLibrariesScope(m, true))
if (projectModules.isEmpty) {
GlobalSearchScope.EMPTY_SCOPE
} else {
projectModules.reduce(_.uniteWith(_))
}
def getProjectSearchScope(project: Project): GlobalSearchScope = {
GlobalSearchScope.allScope(project)
}
def getSearchScope(project: Project, includeNonProjectItems: Boolean): GlobalSearchScope = {
if (includeNonProjectItems) getProjectAndLibrariesModulesSearchScope(project) else GlobalSearchScope.projectScope(project)
if (includeNonProjectItems) getProjectSearchScope(project) else GlobalSearchScope.projectScope(project)
}
import ScalaUtil._

6
src/main/scala/intellij/haskell/util/index/HaskellModuleNameIndex.scala
View File

@ -76,8 +76,8 @@ object HaskellModuleNameIndex {
moduleNames.foreach(mn => {
val key = Key(project, mn)
find(key, 5.seconds, reschedule = true) match {
case Right(vf) => Cache.put(key, Right(vf))
case Left(_) => ()
case Right(vf) if vf.nonEmpty => Cache.put(key, Right(vf))
case _ => ()
}
})
}
@ -128,7 +128,7 @@ object HaskellModuleNameIndex {
val files = ApplicationUtil.scheduleInReadActionWithWriteActionPriority(
project, {
try {
Some(FileBasedIndex.getInstance.getContainingFiles(HaskellModuleNameIndex, moduleName, HaskellProjectUtil.getProjectAndLibrariesModulesSearchScope(project)).asScala.toSeq)
Some(FileBasedIndex.getInstance.getContainingFiles(HaskellModuleNameIndex, moduleName, HaskellProjectUtil.getProjectSearchScope(project)).asScala.toSeq)
} catch {
case _: IndexNotReadyException => None
}