diff options
| -rw-r--r-- | haskell-code-explorer.cabal | 2 | ||||
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 6 |
2 files changed, 3 insertions, 5 deletions
diff --git a/haskell-code-explorer.cabal b/haskell-code-explorer.cabal index bb50940..e2d18e9 100644 --- a/haskell-code-explorer.cabal +++ b/haskell-code-explorer.cabal @@ -3,7 +3,7 @@ name: haskell-code-explorer version: 0.1.0.0 synopsis: Web application for exploring and understanding Haskell codebases Category: GHC,Web -description: Please see README.md +description: Please see README.org license: MIT AND AGPL-3.0-or-later license-files: COPYING.expat, COPYING.agpl3 author: Alexey Kiryushin and Yuchen Pei diff --git a/src/HaskellCodeExplorer/PackageInfo.hs b/src/HaskellCodeExplorer/PackageInfo.hs index 2f336f4..295f1cb 100644 --- a/src/HaskellCodeExplorer/PackageInfo.hs +++ b/src/HaskellCodeExplorer/PackageInfo.hs @@ -214,7 +214,6 @@ createPackageInfo packageDirectoryPath mbDistDirRelativePath sourceCodePreproces <> "), indexing the first package by default." <> "Alternatively, try using absolute path for -p." return $ head packages - units <- liftIO $ (filter (\((pkgName, _), _, _) -> pkgName == pPackageName package)) @@ -490,9 +489,8 @@ indexBuildComponent sourceCodePreprocessing currentPackageId componentId deps@(f Just buildDir -> Just $ buildDir </> (takeBaseName buildDir ++ "-tmp") Nothing -> Nothing - _ <- - -- initUnits happens here - setSessionDynFlags $ L.foldl' + -- initUnits happens here + _ <- setSessionDynFlags $ L.foldl' gopt_set (flags' { backend = NCG , ghcLink = LinkInMemory |