nano-md5 0.1 → 0.1.1
raw patch · 2 files changed
+4/−2 lines, 2 files
Files
- Data/Digest/OpenSSL/MD5.hs +3/−1
- nano-md5.cabal +1/−1
Data/Digest/OpenSSL/MD5.hs view
@@ -11,7 +11,7 @@ -- -------------------------------------------------------------------- ----- | ByteString-based, zero-copying binding to OpenSSL's md5 interface+-- ByteString-based, zero-copying binding to OpenSSL's md5 interface -- module Data.Digest.OpenSSL.MD5 where@@ -50,6 +50,7 @@ -- print it in 0-padded hex format go :: Ptr Word8 -> Int -> [String] -> IO String+#ifndef __HADDOCK__ go !q !n acc | n >= 16 = return $ concat (reverse acc) | otherwise = do w <- peekElemOff q n@@ -58,6 +59,7 @@ draw w = case showHex w [] of [x] -> ['0', x] x -> x+#endif -- -- unsigned char *MD5(const unsigned char *d, unsigned long n, unsigned char *md);
nano-md5.cabal view
@@ -1,5 +1,5 @@ name: nano-md5-version: 0.1+version: 0.1.1 description: Efficient, ByteString bindings to OpenSSL. synopsis: Efficient, ByteString bindings to OpenSSL. license: BSD3