Permalink
Browse files

Remove some needless {-# OPTIONS_HADDOCK prune #-}

  • Loading branch information...
1 parent e9ed30a commit a9fccd7d3e4b9149e2cf22795ddef46417f5c49b @depressed-pho committed Nov 1, 2011
Showing with 31 additions and 36 deletions.
  1. +13 −13 OpenSSL/DH.hsc
  2. +6 −9 OpenSSL/EVP/Cipher.hsc
  3. +1 −2 OpenSSL/EVP/Digest.hsc
  4. +11 −12 OpenSSL/EVP/PKey.hsc
View
@@ -1,17 +1,17 @@
-- | Diffie-Hellman key exchange
-module OpenSSL.DH (
- DHP,
- DH,
- DHGen(..),
- genDHParams,
- getDHLength,
- checkDHParams,
- genDH,
- getDHParams,
- getDHPublicKey,
- computeDHKey,
- ) where
-
+module OpenSSL.DH
+ ( DHP
+ , DH
+ , DHGen(..)
+ , genDHParams
+ , getDHLength
+ , checkDHParams
+ , genDH
+ , getDHParams
+ , getDHPublicKey
+ , computeDHKey
+ )
+ where
import Data.Word (Word8)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Internal as BS
View
@@ -1,7 +1,5 @@
{- -*- haskell -*- -}
-{-# OPTIONS_HADDOCK prune #-}
-
-- |An interface to symmetric cipher algorithms.
#include "HsOpenSSL.h"
@@ -19,15 +17,14 @@ module OpenSSL.EVP.Cipher
, cipherStrictLBS
)
where
-
-import Data.ByteString.Unsafe (unsafeUseAsCStringLen)
+import Data.ByteString.Unsafe (unsafeUseAsCStringLen)
import qualified Data.ByteString.Char8 as B8
import qualified Data.ByteString.Lazy.Char8 as L8
-import Foreign
-import Foreign.C
-import OpenSSL.Objects
-import OpenSSL.Utils
-import OpenSSL.EVP.Internal
+import Foreign
+import Foreign.C
+import OpenSSL.Objects
+import OpenSSL.Utils
+import OpenSSL.EVP.Internal
foreign import ccall unsafe "EVP_get_cipherbyname"
_get_cipherbyname :: CString -> IO (Ptr EVP_CIPHER)
View
@@ -1,7 +1,5 @@
{- -*- haskell -*- -}
-{-# OPTIONS_HADDOCK prune #-}
-
-- |An interface to message digest algorithms.
#include "HsOpenSSL.h"
@@ -65,6 +63,7 @@ digestBS :: Digest -> B8.ByteString -> String
digestBS md input
= unsafePerformIO $ digestStrictly md input >>= digestFinal
+-- |Same as 'digestBS' but returns 'B8.ByteString' instead.
digestBS' :: Digest -> B8.ByteString -> B8.ByteString
digestBS' md input
= unsafePerformIO $ digestStrictly md input >>= digestFinalBS
View
@@ -1,7 +1,6 @@
{- -*- haskell -*- -}
{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# OPTIONS_HADDOCK prune #-}
-- |An interface to asymmetric cipher keypair.
@@ -13,17 +12,17 @@ module OpenSSL.EVP.PKey
, KeyPair(..)
, SomePublicKey
, SomeKeyPair
- ) where
-
-import Data.Typeable
-import Data.Maybe
-import Foreign
-import Foreign.C
-import OpenSSL.DSA
-import OpenSSL.EVP.Digest hiding (digest)
-import OpenSSL.EVP.Internal
-import OpenSSL.RSA
-import OpenSSL.Utils
+ )
+ where
+import Data.Typeable
+import Data.Maybe
+import Foreign
+import Foreign.C
+import OpenSSL.DSA
+import OpenSSL.EVP.Digest
+import OpenSSL.EVP.Internal
+import OpenSSL.RSA
+import OpenSSL.Utils
-- |Instances of this class has at least public portion of a
-- keypair. They might or might not have the private key.

0 comments on commit a9fccd7

Please sign in to comment.