@@ -4409,12 +4409,12 @@ def int_as_str(obj: Object) -> String:
44094409id = x -> x
44104410
44114411. compile =
4412- | {type = "Int", value = value} -> $$int_as_str value
4413- | {type = "Var", name = name} -> name
4414- | {type = "Binop", op = op, left = left, right = right} -> (compile left) ++ op ++ (compile right)
4415- | {type = "List", items = items} -> "[" ++ (join ", " (map compile items)) ++ "]"
4416- | {type = "Assign", name = name, value = value} -> "((" ++ name ++ ") =>" ++ (compile value) ++ ")("
4417- | {type = "Where", binding={type="Assign", name=name, value=value}, body=body} ->
4412+ | {type= "Int", value= value} -> $$int_as_str value
4413+ | {type= "Var", name= name} -> name
4414+ | {type= "Binop", op= op, left= left, right= right} -> (compile left) ++ op ++ (compile right)
4415+ | {type= "List", items= items} -> "[" ++ (join ", " (map compile items)) ++ "]"
4416+ | {type= "Assign", name= name, value= value} -> "((" ++ name ++ ") =>" ++ (compile value) ++ ")("
4417+ | {type= "Where", binding={type="Assign", name=name, value=value}, body=body} ->
44184418 "(" ++ (compile name) ++ " => " ++ (compile body) ++ ")(" ++ (compile value) ++ ")"
44194419
44204420. join = sep ->
0 commit comments