add internal module as backdoor for hidden function/definition.
also export core sendPacket/recvPacket
This commit is contained in:
parent
476b0a8f82
commit
74633cd68f
4 changed files with 47 additions and 1 deletions
|
@ -7,7 +7,26 @@
|
||||||
--
|
--
|
||||||
module Network.TLS
|
module Network.TLS
|
||||||
(
|
(
|
||||||
module Network.TLS.Core
|
-- * Context configuration
|
||||||
|
TLSParams(..)
|
||||||
|
, defaultParams
|
||||||
|
|
||||||
|
-- * Context object
|
||||||
|
, TLSCtx
|
||||||
|
, ctxHandle
|
||||||
|
|
||||||
|
-- * Creating a context
|
||||||
|
, client
|
||||||
|
, server
|
||||||
|
|
||||||
|
-- * Initialisation and Termination of context
|
||||||
|
, bye
|
||||||
|
, handshake
|
||||||
|
|
||||||
|
-- * High level API
|
||||||
|
, sendData
|
||||||
|
, recvData
|
||||||
|
|
||||||
-- * Crypto Key
|
-- * Crypto Key
|
||||||
, PrivateKey(..)
|
, PrivateKey(..)
|
||||||
-- * Crypto RNG
|
-- * Crypto RNG
|
||||||
|
|
|
@ -16,6 +16,10 @@ module Network.TLS.Core
|
||||||
, TLSCtx
|
, TLSCtx
|
||||||
, ctxHandle
|
, ctxHandle
|
||||||
|
|
||||||
|
-- * Internal packet sending and receiving
|
||||||
|
, sendPacket
|
||||||
|
, recvPacket
|
||||||
|
|
||||||
-- * Creating a context
|
-- * Creating a context
|
||||||
, client
|
, client
|
||||||
, server
|
, server
|
||||||
|
|
22
Network/TLS/Internal.hs
Normal file
22
Network/TLS/Internal.hs
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
{-# OPTIONS_HADDOCK hide #-}
|
||||||
|
-- |
|
||||||
|
-- Module : Network.TLS.Internal
|
||||||
|
-- License : BSD-style
|
||||||
|
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
|
||||||
|
-- Stability : experimental
|
||||||
|
-- Portability : unknown
|
||||||
|
--
|
||||||
|
module Network.TLS.Internal
|
||||||
|
( module Network.TLS.Struct
|
||||||
|
, module Network.TLS.Packet
|
||||||
|
, module Network.TLS.Receiving
|
||||||
|
, module Network.TLS.Sending
|
||||||
|
, sendPacket
|
||||||
|
, recvPacket
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Network.TLS.Struct
|
||||||
|
import Network.TLS.Packet
|
||||||
|
import Network.TLS.Receiving
|
||||||
|
import Network.TLS.Sending
|
||||||
|
import Network.TLS.Core (sendPacket, recvPacket)
|
|
@ -43,6 +43,7 @@ Library
|
||||||
Exposed-modules: Network.TLS
|
Exposed-modules: Network.TLS
|
||||||
Network.TLS.Cipher
|
Network.TLS.Cipher
|
||||||
Network.TLS.Compression
|
Network.TLS.Compression
|
||||||
|
Network.TLS.Internal
|
||||||
other-modules: Network.TLS.Cap
|
other-modules: Network.TLS.Cap
|
||||||
Network.TLS.SRandom
|
Network.TLS.SRandom
|
||||||
Network.TLS.Struct
|
Network.TLS.Struct
|
||||||
|
|
Loading…
Reference in a new issue