haskell - scotty で warp の代わりに warp-tls を使用するには?

Question

通常の warp サーバーではなく warp-tls を使用して scotty アプリケーションを起動する必要がありますが、実行中の warp は scotty のソース コードに組み込まれているようです。明らかな何かが欠けていますか？