From 83da7fe89c52cf84b6181141b1b0f6ffcf4ecd7c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 7 Jun 2024 21:45:21 +0200 Subject: Fix formatting These were originally directly adjacent, where the alignment showed the similarities. Now the alignment is just spurious. --- src/Data/Array/Nested/Internal/Ranked.hs | 2 +- src/Data/Array/Nested/Internal/Shaped.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Internal/Ranked.hs b/src/Data/Array/Nested/Internal/Ranked.hs index c5f0c11..f834d54 100644 --- a/src/Data/Array/Nested/Internal/Ranked.hs +++ b/src/Data/Array/Nested/Internal/Ranked.hs @@ -66,7 +66,7 @@ deriving instance NFData (Mixed (Replicate n Nothing) a) => NFData (Ranked n a) newtype instance Mixed sh (Ranked n a) = M_Ranked (Mixed sh (Mixed (Replicate n Nothing) a)) deriving instance Show (Mixed sh (Mixed (Replicate n Nothing) a)) => Show (Mixed sh (Ranked n a)) -newtype instance MixedVecs s sh (Ranked n a) = MV_Ranked (MixedVecs s sh (Mixed (Replicate n Nothing) a)) +newtype instance MixedVecs s sh (Ranked n a) = MV_Ranked (MixedVecs s sh (Mixed (Replicate n Nothing) a)) -- 'Ranked' and 'Shaped' can already be used at the top level of an array nest; -- these instances allow them to also be used as elements of arrays, thus diff --git a/src/Data/Array/Nested/Internal/Shaped.hs b/src/Data/Array/Nested/Internal/Shaped.hs index 7e480c9..c640a44 100644 --- a/src/Data/Array/Nested/Internal/Shaped.hs +++ b/src/Data/Array/Nested/Internal/Shaped.hs @@ -64,7 +64,7 @@ deriving instance NFData (Mixed (MapJust sh) a) => NFData (Shaped sh a) newtype instance Mixed sh (Shaped sh' a) = M_Shaped (Mixed sh (Mixed (MapJust sh') a)) deriving instance Show (Mixed sh (Mixed (MapJust sh') a)) => Show (Mixed sh (Shaped sh' a)) -newtype instance MixedVecs s sh (Shaped sh' a) = MV_Shaped (MixedVecs s sh (Mixed (MapJust sh' ) a)) +newtype instance MixedVecs s sh (Shaped sh' a) = MV_Shaped (MixedVecs s sh (Mixed (MapJust sh') a)) instance Elt a => Elt (Shaped sh a) where mshape (M_Shaped arr) = mshape arr -- cgit v1.2.3-70-g09d2