Fix show instance by porting dlist-nonempty version (#95)

Fixes #96
spl · Aug 31, 2021 · 697cf20 · 697cf20
1 parent 157a97d
commit 697cf20
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/DList/DNonEmpty/Internal.hs b/Data/DList/DNonEmpty/Internal.hs
@@ -394,7 +394,7 @@ instance Read a => Read (DNonEmpty a) where
 instance Show a => Show (DNonEmpty a) where
   showsPrec p dl =
     showParen (p > 10) $
-      showString "fromNonEmpty " . shows (toNonEmpty dl)
+      showString "fromNonEmpty " . showsPrec 11 (toNonEmpty dl)
 
 instance Functor DNonEmpty where
   {-# INLINE fmap #-}