@@ -379,11 +379,6 @@ binop region func@(Var.Canonical home op) e1 e2 =
379 es <- mapM expression (collectRightAssoc [] e1)
379 es <- mapM expression (collectRightAssoc [] e1)
380 return $ foldr (<|) e2' es
380 return $ foldr (<|) e2' es
382− (Var.Module ["List"], "++") ->
383− do e1' <- expression e1
384− e2' <- expression e2
385− return $ _List "append" `call` [e1', e2']
387 (Var.BuiltIn, "::") ->
382 (Var.BuiltIn, "::") ->
388 expression (A region (Data "::" [e1,e2]))
383 expression (A region (Data "::" [e1,e2]))