From 04893d6b0a0d4bd0ca65e89869c9b428a8a2ba1a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 4 Dec 2013 05:26:51 +0200
Subject: [PATCH] Export credsKey

---
 yesod-auth/Yesod/Auth.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs
index a54f5dfd..f09b2b93 100644
--- a/yesod-auth/Yesod/Auth.hs
+++ b/yesod-auth/Yesod/Auth.hs
@@ -34,6 +34,8 @@ module Yesod.Auth
     , AuthException (..)
       -- * Helper
     , AuthHandler
+      -- * Internal
+    , credsKey
     ) where
 
 import Control.Monad                 (when)
@@ -163,6 +165,9 @@ class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage
         => HandlerT master IO (Maybe (AuthId master))
     maybeAuthId = defaultMaybeAuthId
 
+-- | Internal session key used to hold the authentication information.
+--
+-- Since 1.2.3
 credsKey :: Text
 credsKey = "_ID"