haskell - warp 不调用 toWaiApp 有什么原因吗？

Question

只是为了它，我对为什么warp不toWaiApp按照评论中的说明调用感兴趣：

toWaiApp :: YesodDispatch site => site -> IO W.Application
toWaiApp site = do
    logger <- makeLogger site
    toWaiAppLogger logger site


-- | [...] Automatically calls 'toWaiApp'. [...]
warp :: YesodDispatch site => Int -> site -> IO ()
warp port site = do
    logger <- makeLogger site
    toWaiAppLogger logger site >>= Network.Wai.Handler.Warp.runSettings (...)

为什么不打电话toWaiApp：

-- | [...] Automatically calls 'toWaiApp'. [...]
warp :: YesodDispatch site => Int -> site -> IO ()
warp port site = toWaiApp site >>= Network.Wai.Handler.Warp.runSettings (...)

更新：我在yesod-core-1.6.14。

标签： haskellyesod