help wanted
Metriche repository
- Star
- (1953 star)
- Metriche merge PR
- (Merge medio 5h 49m) (2 PR mergiate in 30 g)
Descrizione
I'm not sure if there's a type-safe way of enforcing valid HTTP header names, but servant currently allows header names to have spaces which can break break Chrome.
More information can be found in a wai issue at https://github.com/yesodweb/wai/issues/628.
Example
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators #-}
module Main where
import Network.Wai
import Network.Wai.Handler.Warp
import Servant
import Data.Text
type HelloAPI = Get '[PlainText] (Headers '[Header "A A" Text] Text)
server :: Server HelloAPI
server = return $ addHeader "foo" $ "Hello, world!"
helloApi :: Proxy HelloAPI
helloApi = Proxy
app :: Application
app = serve helloApi server
main :: IO ()
main = run 80 app