From 84183f26a358ec89fdcaa5b9f50271566d5999b6 Mon Sep 17 00:00:00 2001 From: Yuchen Pei 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') 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