From b2291a204634d3fae2b76e6fe7f7481598b98a35 Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Sun, 12 Jul 2020 18:06:37 -0600
Subject: [PATCH] use explicit size for large folded constants

---
 src/Convert/ExprUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Convert/ExprUtils.hs b/src/Convert/ExprUtils.hs
index 50ed802..c93219d 100644
--- a/src/Convert/ExprUtils.hs
+++ b/src/Convert/ExprUtils.hs
@@ -141,7 +141,7 @@ toDec n =
         UniOp UniSub $ toDec (-n)
     else if n >= 4294967296 `div` 2 then
         let size = fromIntegral $ bits $ n * 2
-        in Number $ Decimal (negate size) True n
+        in Number $ Decimal size True n
     else
         RawNum n
     where