add show

1 files changed, 3 insertions, 2 deletions

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