A test Haskell+Snap application for authenticating against Fedora's OpenID provider (FedOAuth)