aboutsummaryrefslogtreecommitdiff
path: root/src/HaskellCodeExplorer
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 /src/HaskellCodeExplorer
parent5d5dc9baadf526e17395a85b37b4f331ebf02098 (diff)
minor fixes
Diffstat (limited to 'src/HaskellCodeExplorer')
-rw-r--r--src/HaskellCodeExplorer/PackageInfo.hs6
1 files changed, 2 insertions, 4 deletions
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