@@ -69,9 +69,13 @@ notFound :: String -> [String] -> String -> Canonicalizer String a
69notFound kind possibilities var =
69notFound kind possibilities var =
70 throwError $ "Could not find " ++ kind ++ " '" ++ var ++ "'." ++ msg
70 throwError $ "Could not find " ++ kind ++ " '" ++ var ++ "'." ++ msg
72− matches = filter (List.isInfixOf var) possibilities
73+ filter (List.isInfixOf var) possibilities
73− msg = if null matches then "" else
76+ if null matches
74− "\nClose matches include: " ++ List.intercalate ", " matches
78+ else "\nClose matches include: " ++ List.intercalate ", " matches
77preferLocals
81preferLocals