From 1d3f2a333174449ccc6c634cef040a58b533b379 Mon Sep 17 00:00:00 2001 From: Valentin Robert Date: Wed, 13 Mar 2024 15:41:59 -0700 Subject: [PATCH] add ShowF instance for FloatInfoRepr --- base/src/Data/Macaw/Types.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/base/src/Data/Macaw/Types.hs b/base/src/Data/Macaw/Types.hs index cd98d0b9..f486f32f 100644 --- a/base/src/Data/Macaw/Types.hs +++ b/base/src/Data/Macaw/Types.hs @@ -130,6 +130,8 @@ instance Show (FloatInfoRepr fi) where show QuadFloatRepr = "quad" show X86_80FloatRepr = "x87_80" +instance ShowF FloatInfoRepr where + instance Pretty (FloatInfoRepr fi) where pretty = viaShow