forward port to stackage lts-20.25

1 files changed, 0 insertions, 20 deletions

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