From 09041ca155485885a2f337f71b04442e991a550d Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 16 May 2025 10:42:24 +0200
Subject: default-show-instances flag

---
 src/Data/Array/Nested/Ranked/Shape.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/Data/Array/Nested/Ranked/Shape.hs')

diff --git a/src/Data/Array/Nested/Ranked/Shape.hs b/src/Data/Array/Nested/Ranked/Shape.hs
index 1c0b9eb..c18f9ee 100644
--- a/src/Data/Array/Nested/Ranked/Shape.hs
+++ b/src/Data/Array/Nested/Ranked/Shape.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DeriveFoldable #-}
 {-# LANGUAGE DeriveFunctor #-}
@@ -54,8 +55,12 @@ deriving instance Functor (ListR n)
 deriving instance Foldable (ListR n)
 infixr 3 :::
 
+#ifdef OXAR_DEFAULT_SHOW_INSTANCES
+deriving instance Show i => Show (ListR n i)
+#else
 instance Show i => Show (ListR n i) where
   showsPrec _ = listrShow shows
+#endif
 
 instance NFData i => NFData (ListR n i) where
   rnf ZR = ()
@@ -189,8 +194,12 @@ infixr 3 :.:
 
 type IIxR n = IxR n Int
 
+#ifdef OXAR_DEFAULT_SHOW_INSTANCES
+deriving instance Show i => Show (IxR n i)
+#else
 instance Show i => Show (IxR n i) where
   showsPrec _ (IxR l) = listrShow shows l
+#endif
 
 instance NFData i => NFData (IxR sh i)
 
@@ -260,8 +269,12 @@ infixr 3 :$:
 
 type IShR n = ShR n Int
 
+#ifdef OXAR_DEFAULT_SHOW_INSTANCES
+deriving instance Show i => Show (ShR n i)
+#else
 instance Show i => Show (ShR n i) where
   showsPrec _ (ShR l) = listrShow shows l
+#endif
 
 instance NFData i => NFData (ShR sh i)
 
-- 
cgit v1.2.3-70-g09d2