git.iko.soy/elk
on master help sign in
Get rid of TODO in binop canonicalization
974a28eEvan Czaplicki
src/Canonicalize/Environment.hs+2−2
compare with master
unifiedsplit
@@ -229,8 +229,8 @@ findBinop region (Env _ _ _ _ binops _ _ _) name =
229 Just (I.Bin 1 _ binop _ _) ->
229 Just (I.Bin 1 _ binop _ _) ->
230 Result.ok binop
230 Result.ok binop
231
231
232− Just _ ->
232+ Just homes ->
233− Result.throw (error "TODO ambiguous binop")
233+ Result.throw (Error.AmbiguousBinop region name (Map.keys homes))
234
234
235 Nothing ->
235 Nothing ->
236 Result.throw (Error.NotFoundBinop region name (Map.keysSet binops))
236 Result.throw (Error.NotFoundBinop region name (Map.keysSet binops))