aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYuchen Pei <hi@ypei.me>2022-06-13 15:30:46 +1000
committerYuchen Pei <hi@ypei.me>2022-06-13 15:30:46 +1000
commit84183f26a358ec89fdcaa5b9f50271566d5999b6 (patch)
treeb103a519216d8914e73d4baa64e981a649e808e8
parent5d5dc9baadf526e17395a85b37b4f331ebf02098 (diff)
minor fixes
-rw-r--r--haskell-code-explorer.cabal2
-rw-r--r--src/HaskellCodeExplorer/PackageInfo.hs6
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