From 96e42c2aba5e29fd795aa624a9f2ea992ec52c21 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sat, 7 Mar 2026 13:36:40 +0100
Subject: add show

---
 src/Blessings.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Blessings.hs')

diff --git a/src/Blessings.hs b/src/Blessings.hs
index ebf14e2..3d8a5c4 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -15,8 +15,7 @@ import Data.List (genericDrop)
 import Data.String
 import Data.Tuple.Extra (both, first, second)
 import Data.Word (Word8)
-import qualified Prelude
-import Prelude hiding (drop, length, take)
+
 
 type Ps = Word8
 type Pm = [Ps]
@@ -454,6 +453,8 @@ instance (Eq a, Blessable a) => Blessable (Blessings a) where
 
   fromWord8 = Plain . Bless.fromWord8
 
+  show = Plain . Bless.show
+
 
 chunksOf :: (Eq a, Blessable a) => Int -> a -> [a]
 chunksOf k = rec
-- 
cgit v1.2.3