Fix Unique Relation

AmpersandTarski · May 13, 2023 · 26b3c86 · 26b3c86
1 parent 7947e31
commit 26b3c86
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Ampersand/Core/AbstractSyntaxTree.hs b/src/Ampersand/Core/AbstractSyntaxTree.hs
@@ -477,7 +477,7 @@ instance Ord Relation where
 
 instance Unique Relation where
   showUnique :: Relation -> Text1
-  showUnique = showWithSign
+  showUnique x = toText1Unsafe ("Relation_" <> (tshow . abs . hash . text1ToText . showWithSign) x)
 
 instance Hashable Relation where
   hashWithSalt s Relation {dechash = v} = s `hashWithSalt` v