From 9c1bd9b72a3167dd988bba9a51d381394ef3cd05 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 19 Jun 2023 11:04:10 -0400 Subject: forward port to stackage lts-20.25 --- fsmgr.cabal | 2 +- src/Crypto/Hash/Types/Digest/Read.hs | 20 -------------------- stack.yaml | 4 ++-- 3 files changed, 3 insertions(+), 23 deletions(-) delete mode 100644 src/Crypto/Hash/Types/Digest/Read.hs diff --git a/fsmgr.cabal b/fsmgr.cabal index 4d2de80..6ad9040 100644 --- a/fsmgr.cabal +++ b/fsmgr.cabal @@ -19,7 +19,7 @@ source-repository head library exposed-modules: - Crypto.Hash.Types.Digest.Read, ConfigFile, String + ConfigFile, String other-modules: Paths_fsmgr hs-source-dirs: 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 diff --git a/stack.yaml b/stack.yaml index 4dd153e..e479311 100644 --- a/stack.yaml +++ b/stack.yaml @@ -1,8 +1,8 @@ -resolver: lts-13.26 +resolver: lts-20.25 # build: # library-profiling: true # executable-profiling: true packages: - . extra-deps: -- yaml-combinators-1.1.1.1 +- yaml-combinators-1.1.2.1 -- cgit v1.2.3