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