From 84183f26a358ec89fdcaa5b9f50271566d5999b6 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 13 Jun 2022 15:30:46 +1000 Subject: minor fixes --- haskell-code-explorer.cabal | 2 +- 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 -- cgit v1.2.3