@@ -983,8 +983,8 @@ findLoc (Env _ root _ srcDirs _ _) path absolutePath =
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"