From 22b190b55afcbbd2e014339ead081a552fea4287 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Sat, 28 Apr 2018 15:26:04 -0700 Subject: Switch initialism style to follow the rest of the Haskell world --- tests/Data/Digest/HashTests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/Data/Digest/HashTests.hs') 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 -- cgit v1.2.3