あなたはそれぞれの応答(Network.Wai
で使用可能なneccesaryすべてのツール)にこのヘッダを追加し、独自のミドルウェアを定義することができます。
{-# LANGUAGE OverloadedStrings #-}
import Network.Wai -- from the wai package
import Web.Scotty hiding (options)
addFrameHeader :: Middleware
addFrameHeader =
modifyResponse (mapResponseHeaders (("X-Frame-Options", "whatever") :))
その後、あなたのスコッティのアプリケーションでそれを使用します。
main = scotty 6000 $ do
middleware addFrameHeader
get "/" (text "hello")
curl
では、応答に含まれていることがわかります。
> curl --include localhost:6000
HTTP/1.1 200 OK
Transfer-Encoding: chunked
Date: Thu, 19 Jan 2017 19:22:57 GMT
Server: Warp/3.2.8
X-Frame-Options: whatever
Content-Type: text/plain; charset=utf-8
hello
Exce llent!それはキーの魅力のように動作します!ありがとう – afcastano