From 697cf2022bcf9a4f96989fe2f24cfd199703af84 Mon Sep 17 00:00:00 2001
From: Owen Shepherd <414owen@gmail.com>
Date: Tue, 31 Aug 2021 08:07:44 +0100
Subject: [PATCH] Fix show instance by porting dlist-nonempty version (#95)

Fixes #96
---
 Data/DList/DNonEmpty/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/DList/DNonEmpty/Internal.hs b/Data/DList/DNonEmpty/Internal.hs
index cd5a8b1..69b130b 100644
--- 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 #-}