haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use directly compat module instead of Crypto.Hash.Internal

Browse Source
This commit is contained in:
Vincent Hanquez 2015-02-15 00:39:34 +00:00
parent effca93970
commit bbbbdc4b39
18 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Hash/Internal.hs
View File

@ -4,6 +4,6 @@
-- Maintainer : Vincent Hanquez <vincent@snarc.org> -- Maintainer : Vincent Hanquez <vincent@snarc.org>
-- Stability : experimental -- Stability : experimental
-- Portability : unknown -- Portability : unknown
module Crypto.Hash.Internal (unsafeDoIO) where module Crypto.Hash.Internal
(
import Crypto.Internal.Compat (unsafeDoIO) ) where

2
Crypto/Hash/Kekkak.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.Kekkak
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.Kekkak import Crypto.Hash.Internal.Kekkak
{-# NOINLINE init #-} {-# NOINLINE init #-}

2
Crypto/Hash/MD2.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.MD2
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.MD2 import Crypto.Hash.Internal.MD2
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/MD4.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.MD4
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.MD4 import Crypto.Hash.Internal.MD4
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/MD5.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.MD5
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.MD5 import Crypto.Hash.Internal.MD5
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/RIPEMD160.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.RIPEMD160
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.RIPEMD160 import Crypto.Hash.Internal.RIPEMD160
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/SHA1.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA1
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA1 import Crypto.Hash.Internal.SHA1
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/SHA224.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA224
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA224 import Crypto.Hash.Internal.SHA224
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/SHA256.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA256
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA256 import Crypto.Hash.Internal.SHA256
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/SHA3.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA3
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA3 import Crypto.Hash.Internal.SHA3
{-# NOINLINE init #-} {-# NOINLINE init #-}

2
Crypto/Hash/SHA384.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA384
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA384 import Crypto.Hash.Internal.SHA384
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/SHA512.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.SHA512
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.SHA512 import Crypto.Hash.Internal.SHA512
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/Skein256.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.Skein256
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.Skein256 import Crypto.Hash.Internal.Skein256
{-# NOINLINE init #-} {-# NOINLINE init #-}

2
Crypto/Hash/Skein512.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.Skein512
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.Skein512 import Crypto.Hash.Internal.Skein512
{-# NOINLINE init #-} {-# NOINLINE init #-}

2
Crypto/Hash/Tiger.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.Tiger
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.Tiger import Crypto.Hash.Internal.Tiger
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
Crypto/Hash/Whirlpool.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.Whirlpool
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.Whirlpool import Crypto.Hash.Internal.Whirlpool
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}

2
gen/template/hash-len.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.%%MODULENAME%%
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.%%MODULENAME%% import Crypto.Hash.Internal.%%MODULENAME%%
{-# NOINLINE init #-} {-# NOINLINE init #-}

2
gen/template/hash.hs
View File

@ -29,7 +29,7 @@ module Crypto.Hash.%%MODULENAME%%
import Prelude hiding (init) import Prelude hiding (init)
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Crypto.Hash.Internal (unsafeDoIO) import Crypto.Internal.Compat (unsafeDoIO)
import Crypto.Hash.Internal.%%MODULENAME%% import Crypto.Hash.Internal.%%MODULENAME%%
{-# RULES "hash" forall b. finalize (update init b) = hash b #-} {-# RULES "hash" forall b. finalize (update init b) = hash b #-}