From 9c1bd9b72a3167dd988bba9a51d381394ef3cd05 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Mon, 19 Jun 2023 11:04:10 -0400
Subject: forward port to stackage lts-20.25

---
 src/Crypto/Hash/Types/Digest/Read.hs | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 src/Crypto/Hash/Types/Digest/Read.hs

(limited to 'src')

diff --git a/src/Crypto/Hash/Types/Digest/Read.hs b/src/Crypto/Hash/Types/Digest/Read.hs
deleted file mode 100644
index f371f30..0000000
--- a/src/Crypto/Hash/Types/Digest/Read.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE InstanceSigs          #-}
-{-# LANGUAGE NoImplicitPrelude     #-}
-{-# LANGUAGE PartialTypeSignatures #-}
-{-# LANGUAGE ViewPatterns          #-}
-module Crypto.Hash.Types.Digest.Read where
-import           Rebase.Prelude          hiding (hash)
-
-import           Crypto.Hash
-import           Data.ByteArray.Encoding
-import qualified Rebase.Data.Text        as Text
-
-instance HashAlgorithm a =>
-         Read (Digest a) where
-  readsPrec :: Int -> (String -> [(Digest a, String)])
-  readsPrec _ (Text.encodeUtf8 . Text.pack -> bytes) =
-    toList $ (flip (,) "") <$> (digestFromByteString =<< baseConv bytes)
-    where
-      baseConv :: ByteString -> Maybe (ByteString)
-      baseConv = listToMaybe . toList . convertFromBase Base16
-- 
cgit v1.2.3