Skip to content
Snippets Groups Projects
Commit 99c797c0 authored by Manos Koukoutos's avatar Manos Koukoutos
Browse files

Simplify ADTManager

parent 7a2dfc71
No related branches found
No related tags found
No related merge requests found
...@@ -116,10 +116,7 @@ class ADTManager(ctx: LeonContext) { ...@@ -116,10 +116,7 @@ class ADTManager(ctx: LeonContext) {
case UnitType => case UnitType =>
if (!(discovered contains t) && !(defined contains t)) { if (!(discovered contains t) && !(defined contains t)) {
discovered += (t -> DataType(freshId("Unit"), Seq(Constructor(freshId("Unit"), t, Nil))))
val sym = freshId("Unit")
discovered += (t -> DataType(sym, Seq(Constructor(freshId(sym.name), t, Nil))))
} }
case at @ ArrayType(base) => case at @ ArrayType(base) =>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment