diff options
author | Benjamin Barenblat <bbaren@google.com> | 2018-04-28 15:26:04 -0700 |
---|---|---|
committer | Benjamin Barenblat <bbaren@google.com> | 2018-04-28 15:26:04 -0700 |
commit | 22b190b55afcbbd2e014339ead081a552fea4287 (patch) | |
tree | 9b2ecd376d3430b51a795c6f9c6e62c84066d3b8 /tests/Data/Digest/HashTests.hs | |
parent | 403466452dcda68763b82f409310fc41a3a6a9ab (diff) |
Switch initialism style to follow the rest of the Haskell world
Diffstat (limited to 'tests/Data/Digest/HashTests.hs')
-rw-r--r-- | tests/Data/Digest/HashTests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Data/Digest/HashTests.hs b/tests/Data/Digest/HashTests.hs index 16b1aa8..45b31e2 100644 --- a/tests/Data/Digest/HashTests.hs +++ b/tests/Data/Digest/HashTests.hs @@ -17,7 +17,7 @@ module Data.Digest.HashTests ( tableTestCase , testAgainstCoreutils - , testAgainstOpenssl + , testAgainstOpenSSL ) where import Data.ByteString (ByteString) @@ -55,8 +55,8 @@ runExternal p s = do hClose stdin -- causes process to exit hGetContents stdout -testAgainstOpenssl :: (ByteString -> String) -> String -> Property IO -testAgainstOpenssl f flag = +testAgainstOpenSSL :: (ByteString -> String) -> String -> Property IO +testAgainstOpenSSL f flag = over ByteString.Series.enumW8s $ \s -> monadic $ do theirs <- runExternal (proc "openssl" ["dgst", '-' : flag]) s |