aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/jvm/constant.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/target/jvm/constant.lux6
1 files changed, 5 insertions, 1 deletions
diff --git a/stdlib/source/lux/target/jvm/constant.lux b/stdlib/source/lux/target/jvm/constant.lux
index 0cc7e16e1..91a72390a 100644
--- a/stdlib/source/lux/target/jvm/constant.lux
+++ b/stdlib/source/lux/target/jvm/constant.lux
@@ -40,6 +40,10 @@
{}
(Index UTF8)
+
+ (def: #export index
+ (-> Class (Index UTF8))
+ (|>> :representation))
(def: #export class
(-> (Index UTF8) Class)
@@ -48,7 +52,7 @@
(def: #export class-equivalence
(Equivalence Class)
(:: equivalence.contravariant map-1
- (|>> :representation)
+ ..index
//index.equivalence))
(def: class-writer