Adapter function to convert a Network.Wai.Application to a Snap handler. serveWai :: MonadSnap m => Application -> m () It works for few a very basic test cases, but hasn't been tested much on a real app yet.