add internal module as backdoor for hidden function/definition.

also export core sendPacket/recvPacket

Network/TLS.hs

@@ -7,7 +7,26 @@
 --
 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
 	, PrivateKey(..)
 	-- * Crypto RNG

Network/TLS/Core.hs

@@ -16,6 +16,10 @@ module Network.TLS.Core
 	, TLSCtx
 	, ctxHandle
 
+	-- * Internal packet sending and receiving
+	, sendPacket
+	, recvPacket
+
 	-- * Creating a context
 	, client
 	, server

Network/TLS/Internal.hs

@@ -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)

tls.cabal

@@ -43,6 +43,7 @@ Library
   Exposed-modules:   Network.TLS
                      Network.TLS.Cipher
                      Network.TLS.Compression
+                     Network.TLS.Internal
   other-modules:     Network.TLS.Cap
                      Network.TLS.SRandom
                      Network.TLS.Struct