@@ -4414,12 +4414,12 @@ def int_as_str(obj: Object) -> String:
44144414id = x -> x
44154415
44164416. compile =
4417- | {type = "Int", value = value} -> $$int_as_str value
4418- | {type = "Var", name = name} -> name
4419- | {type = "Binop", op = op, left = left, right = right} -> (compile left) ++ op ++ (compile right)
4420- | {type = "List", items = items} -> "[" ++ (join ", " (map compile items)) ++ "]"
4421- | {type = "Assign", name = name, value = value} -> "((" ++ name ++ ") =>" ++ (compile value) ++ ")("
4422- | {type = "Where", binding={type="Assign", name=name, value=value}, body=body} ->
4417+ | {type= "Int", value= value} -> $$int_as_str value
4418+ | {type= "Var", name= name} -> name
4419+ | {type= "Binop", op= op, left= left, right= right} -> (compile left) ++ op ++ (compile right)
4420+ | {type= "List", items= items} -> "[" ++ (join ", " (map compile items)) ++ "]"
4421+ | {type= "Assign", name= name, value= value} -> "((" ++ name ++ ") =>" ++ (compile value) ++ ")("
4422+ | {type= "Where", binding={type="Assign", name=name, value=value}, body=body} ->
44234423 "(" ++ (compile name) ++ " => " ++ (compile body) ++ ")(" ++ (compile value) ++ ")"
44244424
44254425. join = sep ->
0 commit comments