From ffc93a3f4d3b29e3a6805f9882f20dd22d184939 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Sun, 15 May 2022 22:34:31 +0200
Subject: Add a pass to cleanup the deconstructed ADTs and fix a small issue

---
 fstar/Primitives.fst | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fstar')

diff --git a/fstar/Primitives.fst b/fstar/Primitives.fst
index f73c8c09..fe351f3a 100644
--- a/fstar/Primitives.fst
+++ b/fstar/Primitives.fst
@@ -146,7 +146,7 @@ let scalar_mul (#ty : scalar_ty) (x : scalar ty) (y : scalar ty) : result (scala
   mk_scalar ty (x * y)
 
 (** Cast an integer from a [src_ty] to a [tgt_ty] *)
-let scalar_cast (#src_ty : scalar_ty) (tgt_ty : scalar_ty) (x : scalar src_ty) : result (scalar tgt_ty) =
+let scalar_cast (src_ty : scalar_ty) (tgt_ty : scalar_ty) (x : scalar src_ty) : result (scalar tgt_ty) =
   mk_scalar tgt_ty x
 
 /// The scalar types
-- 
cgit v1.2.3