eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

update servant-foriegn for new GADT-based auth

Browse source
This commit is contained in:
aaron levin 2015-12-24 22:07:25 +01:00
parent 133dadd054
commit 8a26dc52c5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
servant-foreign/src/Servant/Foreign/Internal.hs
View file

@ -27,7 +27,7 @@ import GHC.Exts (Constraint)
import GHC.TypeLits
import Prelude hiding (concat)
import Servant.API
import Servant.API.Authentication
import Servant.API.Authentication (AuthProtect, AuthPolicy)
-- | Function name builder that simply concat each part together
concatCase :: FunctionName -> Text
@ -354,8 +354,8 @@ listFromAPI :: (HasForeign lang api, GenerateList (Foreign api)) => Proxy lang -
listFromAPI lang p = generateList (foreignFor lang p defReq)
instance (HasForeign lang sublayout)
=> HasForeign lang ((AuthProtect (BasicAuth realm) (usr :: *) (policy :: AuthPolicy) :> sublayout)) where
type Foreign (AuthProtect (BasicAuth realm) (usr :: *) (policy :: AuthPolicy) :> sublayout) = Foreign sublayout
=> HasForeign lang ((AuthProtect (BasicAuth realm) (usr :: *) (mPolicy :: AuthPolicy) mError (uPolicy :: AuthPolicy) uError :> sublayout)) where
type Foreign (AuthProtect (BasicAuth realm) (usr :: *) (mPolicy :: AuthPolicy) mError (uPolicy :: AuthPolicy) uError :> sublayout) = Foreign sublayout
foreignFor _ Proxy req =
foreignFor (Proxy :: Proxy lang) (Proxy :: Proxy sublayout) (req & reqHeaders <>~
@ -366,8 +366,8 @@ instance (HasForeign lang sublayout)
])
instance (HasForeign lang sublayout)
=> HasForeign lang ((AuthProtect Text (usr :: *) (policy :: AuthPolicy) :> sublayout)) where
type Foreign (AuthProtect Text (usr :: *) (policy :: AuthPolicy) :> sublayout) = Foreign sublayout
=> HasForeign lang ((AuthProtect Text (usr :: *) (mP :: AuthPolicy) mE (uP :: AuthPolicy) uE :> sublayout)) where
type Foreign (AuthProtect Text (usr :: *) (mP :: AuthPolicy) mE (uP :: AuthPolicy) uE :> sublayout) = Foreign sublayout
foreignFor _ Proxy req =
foreignFor (Proxy :: Proxy lang) (Proxy :: Proxy sublayout) (req & reqHeaders <>~