fixed

commit 73eca8c98fb444609b725a557eb4406b943132de
parent 0fb2edf2d770b1e74302b1ec32f0431c1a01b5e3
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 30 Nov 2025 12:27:47 +0400

wide: friendlier show instance

Diffstat:
M
lib/Data/Word/Wide.hs
 | 
3
+--

1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lib/Data/Word/Wide.hs b/lib/Data/Word/Wide.hs
@@ -54,8 +54,7 @@ fi = fromIntegral
 data Wide = Wide !(# Limb, Limb #)
 
 instance Show Wide where
-  show (Wide (# Limb a, Limb b #)) =
-    "(" <> show (W# a) <> ", " <> show (W# b) <> ")"
+  show = show . from
 
 instance Num Wide where
   (+) = add