Add "AuthProtect" instances to servant-foreign

In order to generate JS functions that include the `Authorization` header when using `AuthProtect`. For my immediate use I looked at the instance for `Header` and hacked around it to create one for `AuthProtect`, although I don't know that it's a good idea to hard-code the type 'Text' or the header name 'Authorization'....

```
instance (KnownSymbol sym, HasForeignType lang ftype Text, HasForeign lang ftype sublayout)
=> HasForeign lang ftype (AuthProtect sym :> sublayout) where
type Foreign ftype (AuthProtect sym :> sublayout) = Foreign ftype sublayout

foreignFor lang Proxy Proxy req =
foreignFor lang Proxy subP $ req & reqHeaders <>~ [HeaderArg arg]
where
arg = Arg
{ _argName = PathSegment "Authorization"
, _argType = typeFor lang (Proxy :: Proxy ftype) (Proxy :: Proxy Text) }
subP = Proxy :: Proxy sublayout
```