@@ -38,6 +38,19 @@ module Network.Wai.Handler.Warp (
3838 , settingsFdCacheDuration
3939 , settingsBeforeMainLoop
4040 , settingsNoParsePath
41+ -- ** Setters
42+ , setPort
43+ , setHost
44+ , setOnException
45+ , setOnExceptionResponse
46+ , setOnOpen
47+ , setOnClose
48+ , setTimeout
49+ , setIntercept
50+ , setManager
51+ , setFdCacheDuration
52+ , setBeforeMainLoop
53+ , setNoParsePath
4154 -- ** Debugging
4255 , exceptionResponseForDebug
4356 -- * Data types
@@ -77,3 +90,16 @@ import Network.Wai.Handler.Warp.Run
7790import Network.Wai.Handler.Warp.Settings
7891import Network.Wai.Handler.Warp.Timeout
7992import Network.Wai.Handler.Warp.Types
93+
94+setPort x y = y { settingsPort = x }
95+setHost x y = y { settingsHost = x }
96+setOnException x y = y { settingsOnException = x }
97+setOnExceptionResponse x y = y { settingsOnExceptionResponse = x }
98+setOnOpen x y = y { settingsOnOpen = x }
99+setOnClose x y = y { settingsOnClose = x }
100+setTimeout x y = y { settingsTimeout = x }
101+setIntercept x y = y { settingsIntercept = x }
102+setManager x y = y { settingsManager = x }
103+setFdCacheDuration x y = y { settingsFdCacheDuration = x }
104+setBeforeMainLoop x y = y { settingsBeforeMainLoop = x }
105+setNoParsePath x y = y { settingsNoParsePath = x }