From 13347802bff40c13edcdf8ecb2eb7096a37b273f Mon Sep 17 00:00:00 2001
From: Marcel Ruegenberg <dustlab@dustlab.com>
Date: Sat, 21 Dec 2013 20:11:19 +0100
Subject: [PATCH] Add Typeable instance for User entity in Auth.HashDB. Fix
 #634.

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

diff --git a/yesod-auth/Yesod/Auth/HashDB.hs b/yesod-auth/Yesod/Auth/HashDB.hs
index ad9fac72..e0a2629c 100644
--- a/yesod-auth/Yesod/Auth/HashDB.hs
+++ b/yesod-auth/Yesod/Auth/HashDB.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveDataTypeable         #-}
 {-# LANGUAGE QuasiQuotes                #-}
 {-# LANGUAGE ConstraintKinds            #-}
 {-# LANGUAGE FlexibleContexts           #-}
@@ -82,6 +83,7 @@ import Text.Hamlet (hamlet)
 
 import Control.Applicative         ((<$>), (<*>))
 import Control.Monad               (replicateM,liftM)
+import Data.Typeable
 
 import qualified Data.ByteString.Lazy.Char8 as BS (pack)
 import Data.Digest.Pure.SHA        (sha1, showDigest)
@@ -258,6 +260,7 @@ User
     password Text
     salt     Text
     UniqueUser username
+    deriving Typeable
 |]
 
 instance HashDBUser (UserGeneric backend) where