initial commit

1 files changed, 20 insertions, 0 deletions

diff --git a/src/Crypto/Hash/Types/Digest/Read.hs b/src/Crypto/Hash/Types/Digest/Read.hs
new file mode 100644
index 0000000..f371f30
--- /dev/null
+++ b/src/Crypto/Hash/Types/Digest/Read.hs
@@ -0,0 +1,20 @@
+{-# 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