Fix for detecting missing "exposed-modules"
commit7a87f08baa7c53c99e3f395ec8ec5c1c9c624e44
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 15 May 2019, 13:25 (7 years ago)
parent897b54d
builder/src/Build.hs+1−1
@@ -693,7 +693,7 @@ addNewLocal name result locals =
693693
694694detectExposedProblems :: NE.List ModuleName.Raw -> Map.Map ModuleName.Raw Result -> Either Exit.BuildProblem ()
695695detectExposedProblems exposed results =
696− case foldr addImportProblems [] exposed of
696+ case foldr (addImportProblems results) [] (NE.toList exposed) of
697697 p:ps ->
698698 Left (Exit.BuildProjectProblem (Exit.BP_MissingExposed (NE.List p ps)))
699699