git.iko.soy/elk
on master help sign in
Fix for detecting missing "exposed-modules"
7a87f08Evan Czaplicki
builder/src/Build.hs+1−1
compare with master
unifiedsplit
@@ -693,7 +693,7 @@ addNewLocal name result locals =
693
693
694detectExposedProblems :: NE.List ModuleName.Raw -> Map.Map ModuleName.Raw Result -> Either Exit.BuildProblem ()
694detectExposedProblems :: NE.List ModuleName.Raw -> Map.Map ModuleName.Raw Result -> Either Exit.BuildProblem ()
695detectExposedProblems exposed results =
695detectExposedProblems exposed results =
696− case foldr addImportProblems [] exposed of
696+ case foldr (addImportProblems results) [] (NE.toList exposed) of
697 p:ps ->
697 p:ps ->
698 Left (Exit.BuildProjectProblem (Exit.BP_MissingExposed (NE.List p ps)))
698 Left (Exit.BuildProjectProblem (Exit.BP_MissingExposed (NE.List p ps)))
699
699