Fix up bool pattern matching

unisonweb · Dec 2, 2024 · 17531ab · 17531ab
1 parent 845833c
commit 17531ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unison-runtime/src/Unison/Runtime/Stack.hs b/unison-runtime/src/Unison/Runtime/Stack.hs
@@ -428,7 +428,7 @@ matchBoolVal = \case
 pattern BoolVal :: Bool -> Val
 pattern BoolVal b <- (matchBoolVal -> Just b)
   where
-    BoolVal b = if b then (BoxedVal (Enum Ty.booleanRef TT.trueTag)) else (BoxedVal (Enum Ty.booleanRef TT.trueTag))
+    BoolVal b = if b then trueVal else falseVal
 
 -- Define singletons we can use for the bools to prevent allocation where possible.
 falseVal :: Val