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

digest auth example was accidentally commited

Browse source
This commit is contained in:
Arian van Putten 2015-10-04 23:24:04 +02:00
parent 4b81f0c77a
commit 57698229c5
1 changed files with 0 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
servant-examples/digest-auth/digest-auth.hs
View file

@ -1,33 +0,0 @@
{-#LANGUAGE DataKinds, TypeOperators, OverloadedStrings #-}
module Main where
import Data.Text
import Data.ByteString (ByteString)
import Data.Proxy
import Servant.API
import Servant.API.Authentication
import Servant.Server
import Servant.Server.Internal.Authentication
import Network.Wai.Handler.Warp
data User = User
{ username :: ByteString
, ha1 :: ByteString -- ^ MD5(username:realm:password)
}
-- | A table with just one user. namely "username:foo:password"
table = [("username", User "username" "22f93fe54b9edf660a2f85310adc8a56")]
type API = AuthProtect (DigestAuth "foo") User 'Strict :> "foo" :> Get '[JSON] Text
api :: Server API
api = digestAuthStrict ha1 lookupUser (const . return $ "hello")
lookupUser :: DigestAuth "foo" -> IO (Maybe User)
lookupUser authData = return . lookup (daUsername authData) $ table
main :: IO ()
main = run 8080 (serve (Proxy :: Proxy API) api)