From 92baa4f6bf99efe229abf2ab895cec8fd7a8936d Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Fri, 17 May 2024 16:16:49 -0700
Subject: Fix case on datatype.

---
 tests/16-datatype.sml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'tests/16-datatype.sml')

diff --git a/tests/16-datatype.sml b/tests/16-datatype.sml
index ee4dd16..7514606 100644
--- a/tests/16-datatype.sml
+++ b/tests/16-datatype.sml
@@ -1,6 +1,5 @@
-datatype D = A | B of int
+datatype D = D of int
 
-val _ =
-  case B 42 of
-    B x => __builtin "exit" x
-  | _ => __builtin "exit" 0
+fun f (D x) = __builtin "exit" x
+
+val _ = f (D 42)
-- 
cgit v1.3.1