remove dependency on foundation and moving to basement
This commit is contained in:
parent
2293c69f87
commit
f861a52b1b
@ -22,7 +22,7 @@ module Crypto.Error.Types
|
||||
import qualified Control.Exception as E
|
||||
import Data.Data
|
||||
|
||||
import Foundation.Monad (MonadFailure(..))
|
||||
import Basement.Monad (MonadFailure(..))
|
||||
import Crypto.Internal.Imports
|
||||
|
||||
-- | Enumeration of all possible errors that can be found in this library
|
||||
|
||||
@ -20,8 +20,8 @@ import Crypto.Internal.Imports
|
||||
import Crypto.Internal.ByteArray (ByteArrayAccess, Bytes)
|
||||
import qualified Crypto.Internal.ByteArray as B
|
||||
import Foreign.Ptr (Ptr)
|
||||
import qualified Foundation.Array as F
|
||||
import qualified Foundation as F
|
||||
import Basement.UArray (UArray)
|
||||
import Basement.NormalForm (deepseq)
|
||||
import GHC.TypeLits (Nat)
|
||||
|
||||
-- | Class representing hashing algorithms.
|
||||
@ -70,11 +70,11 @@ newtype Context a = Context Bytes
|
||||
--
|
||||
-- Creating a digest from a bytearray is also possible with function
|
||||
-- 'Crypto.Hash.digestFromByteString'.
|
||||
newtype Digest a = Digest (F.UArray Word8)
|
||||
newtype Digest a = Digest (UArray Word8)
|
||||
deriving (Eq,Ord,ByteArrayAccess)
|
||||
|
||||
instance NFData (Digest a) where
|
||||
rnf (Digest u) = u `F.deepseq` ()
|
||||
rnf (Digest u) = u `deepseq` ()
|
||||
|
||||
instance Show (Digest a) where
|
||||
show (Digest bs) = map (toEnum . fromIntegral)
|
||||
|
||||
@ -227,7 +227,7 @@ Library
|
||||
Build-depends: base >= 4.6 && < 5
|
||||
, bytestring
|
||||
, memory >= 0.14.5
|
||||
, foundation >= 0.0.8
|
||||
, basement
|
||||
, ghc-prim
|
||||
ghc-options: -Wall -fwarn-tabs -optc-O3 -fno-warn-unused-imports
|
||||
if os(linux)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user