1c4db35 · typeable/wai

git.iko.soy/typeable/wai

using port.

commit1c4db35aff09137c59a3273d6a6ba27b06404881 authorKazu Yamamoto <kazu@iij.ad.jp> dateThu 18 Jun 2015, 10:03 (11 years ago) parent5e76f49

2 files changed+3−3

compare with master

unifiedsplit

warp/Network/Wai/Handler/Warp.hs+2−2 warp/Network/Wai/Handler/Warp/Settings.hs+1−1

warp/Network/Wai/Handler/Warp.hs+2−2

@@ -152,7 +152,7 @@ import Network.Wai.Handler.Warp.Types

152152-- | Port to listen on. Default value: 3000

153153--

154154-- Since 2.1.0

155−setPort :: Int -> Settings -> Settings

155+setPort :: Port -> Settings -> Settings

156156setPort x y = y { settingsPort = x }

157157

158158-- | Interface to bind to. Default value: HostIPv4

@@ -240,7 +240,7 @@ setNoParsePath x y = y { settingsNoParsePath = x }

240240-- | Get the listening port.

241241--

242242-- Since 2.1.1

243−getPort :: Settings -> Int

243+getPort :: Settings -> Port

244244getPort = settingsPort

245245

246246-- | Get the interface to bind to.

warp/Network/Wai/Handler/Warp/Settings.hs+1−1

@@ -32,7 +32,7 @@ import qualified Paths_warp

3232--

3333-- > setTimeout 20 defaultSettings

3434data Settings = Settings

35− { settingsPort :: Int -- ^ Port to listen on. Default value: 3000

35+ { settingsPort :: Port -- ^ Port to listen on. Default value: 3000

3636 , settingsHost :: HostPreference -- ^ Default value: HostIPv4

3737 , settingsOnException :: Maybe Request -> SomeException -> IO () -- ^ What to do with exceptions thrown by either the application or server. Default: ignore server-generated exceptions (see 'InvalidRequest') and print application-generated applications to stderr.

3838 , settingsOnExceptionResponse :: SomeException -> Response