diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-06-13 15:30:46 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-06-13 15:30:46 +1000 |
| commit | 84183f26a358ec89fdcaa5b9f50271566d5999b6 (patch) | |
| tree | b103a519216d8914e73d4baa64e981a649e808e8 /src | |
| parent | 5d5dc9baadf526e17395a85b37b4f331ebf02098 (diff) | |
minor fixes
Diffstat (limited to 'src')
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 6 |
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 |