on master help sign in
cosmetic: get rid of variable name shadowing
b9781e5Evan Czaplicki
builder/src/Build.hs+2−2
@@ -983,8 +983,8 @@ findLoc (Env _ root _ srcDirs _ _) path absolutePath =
983
983
984 [(_, Right names)] ->
984 [(_, Right names)] ->
985 do let name = Name.fromChars (List.intercalate "." names)
985 do let name = Name.fromChars (List.intercalate "." names)
986− dirs <- filterM (isInsideSrcDirByName root names) srcDirs
986+ matchingDirs <- filterM (isInsideSrcDirByName root names) srcDirs
987− case dirs of
987+ case matchingDirs of
988 d1:d2:_ ->
988 d1:d2:_ ->
989 do let p1 = d1 </> FP.joinPath names <.> "elm"
989 do let p1 = d1 </> FP.joinPath names <.> "elm"
990 let p2 = d2 </> FP.joinPath names <.> "elm"
990 let p2 = d2 </> FP.joinPath names <.> "elm"