From 84183f26a358ec89fdcaa5b9f50271566d5999b6 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 13 Jun 2022 15:30:46 +1000
Subject: minor fixes
---
src/HaskellCodeExplorer/PackageInfo.hs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
(limited to 'src/HaskellCodeExplorer')
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