happstack-server-7.3.8: Web related tools and services.

Safe HaskellNone

Happstack.Server.Auth

Description

Support for basic access authentication http://en.wikipedia.org/wiki/Basic_access_authentication

Synopsis

Documentation

basicAuthSource

Arguments

:: Happstack m 
=> String

the realm name

-> Map String String

the username password map

-> m a

the part to guard

-> m a 

A simple HTTP basic authentication guard.

If authentication fails, this part will call mzero.

example:

 main = simpleHTTP nullConf $ 
  msum [ basicAuth "127.0.0.1" (fromList [("happstack","rocks")]) $ ok "You are in the secret club"
       , ok "You are not in the secret club." 
       ]