Get rid of TODO in binop canonicalization
commit974a28efddc0cb09dc182b686861af9a11b85923
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 1 Feb 2018, 23:36 (9 years ago)
parentbdc9ea0
src/Canonicalize/Environment.hs+2−2
@@ -229,8 +229,8 @@ findBinop region (Env _ _ _ _ binops _ _ _) name =
229229 Just (I.Bin 1 _ binop _ _) ->
230230 Result.ok binop
231231
232− Just _ ->
233− Result.throw (error "TODO ambiguous binop")
232+ Just homes ->
233+ Result.throw (Error.AmbiguousBinop region name (Map.keys homes))
234234
235235 Nothing ->
236236 Result.throw (Error.NotFoundBinop region name (Map.keysSet binops))