providing defaultConfig

Author: kazu-yamamoto

Network/.DS_Store

@@ -71,7 +71,17 @@ module Network.HTTP2.Client (
     rstRateLimit,
 
     -- * Common configuration
-    Config (..),
+    Config,
+    defaultConfig,
+    confWriteBuffer,
+    confBufferSize,
+    confSendAll,
+    confReadN,
+    confPositionReadMaker,
+    confTimeoutManager,
+    confMySockAddr,
+    confPeerSockAddr,
+    confReadNTimeout,
     allocSimpleConfig,
     allocSimpleConfig',
     freeSimpleConfig,

Network/HTTP2/Client.hs

@@ -1,6 +1,7 @@
 module Network.HTTP2.Client.Internal (
     Request (..),
     Response (..),
+    Config (..),
     ClientConfig (..),
     Settings (..),
     Aux (..),

Network/HTTP2/Client/Internal.hs

@@ -14,6 +14,7 @@ import Control.Exception (
  )
 import qualified Control.Exception as E
 import Data.IORef
+import Foreign.Ptr (nullPtr)
 import Network.Control
 import Network.HTTP.Semantics.Client
 import Network.HTTP.Semantics.IO
@@ -272,6 +273,22 @@ data Config = Config
     , confReadNTimeout :: Bool
     }
 
+-- | Default config. This is just a template to modify via
+--   field names. Don't use this without modifications.
+defaultConfig :: Config
+defaultConfig =
+    Config
+        { confWriteBuffer = nullPtr
+        , confBufferSize = 0
+        , confSendAll = \_ -> return ()
+        , confReadN = \_ -> return ""
+        , confPositionReadMaker = defaultPositionReadMaker
+        , confTimeoutManager = T.defaultManager
+        , confMySockAddr = SockAddrInet 0 0
+        , confPeerSockAddr = SockAddrInet 0 0
+        , confReadNTimeout = False
+        }
+
 isAsyncException :: Exception e => e -> Bool
 isAsyncException e =
     case E.fromException (E.toException e) of

Network/HTTP2/H2/Types.hs

@@ -51,7 +51,17 @@ module Network.HTTP2.Server (
     rstRateLimit,
 
     -- * Common configuration
-    Config (..),
+    Config,
+    defaultConfig,
+    confWriteBuffer,
+    confBufferSize,
+    confSendAll,
+    confReadN,
+    confPositionReadMaker,
+    confTimeoutManager,
+    confMySockAddr,
+    confPeerSockAddr,
+    confReadNTimeout,
     allocSimpleConfig,
     allocSimpleConfig',
     freeSimpleConfig,

Network/HTTP2/Server.hs

@@ -1,6 +1,8 @@
 module Network.HTTP2.Server.Internal (
     Request (..),
     Response (..),
+    Config (..),
+    ServerConfig (..),
     Aux (..),
 
     -- * Low level