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