From a22600979a747ee201b8a1a2a84469285631682c Mon Sep 17 00:00:00 2001
From: Torgeir Strand Henriksen <torgeirsh@users.noreply.github.com>
Date: Fri, 30 Dec 2022 12:56:52 +0100
Subject: [PATCH] Add Functor instance to AuthHandler. (#1638)

---
 changelog.d/1638                                       | 2 ++
 servant-server/src/Servant/Server/Experimental/Auth.hs | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)
 create mode 100644 changelog.d/1638

diff --git a/changelog.d/1638 b/changelog.d/1638
new file mode 100644
index 00000000..5091d634
--- /dev/null
+++ b/changelog.d/1638
@@ -0,0 +1,2 @@
+synopsis: Add Functor instance to AuthHandler.
+prs: #1638
diff --git a/servant-server/src/Servant/Server/Experimental/Auth.hs b/servant-server/src/Servant/Server/Experimental/Auth.hs
index 20463903..4aadfa22 100644
--- a/servant-server/src/Servant/Server/Experimental/Auth.hs
+++ b/servant-server/src/Servant/Server/Experimental/Auth.hs
@@ -1,5 +1,6 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# LANGUAGE DeriveDataTypeable    #-}
+{-# LANGUAGE DeriveFunctor #-}
 {-# LANGUAGE DeriveGeneric         #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE FlexibleInstances     #-}
@@ -44,7 +45,7 @@ type family AuthServerData a :: *
 -- NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGE
 newtype AuthHandler r usr = AuthHandler
   { unAuthHandler :: r -> Handler usr }
-  deriving (Generic, Typeable)
+  deriving (Functor, Generic, Typeable)
 
 -- | NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGE
 mkAuthHandler :: (r -> Handler usr) -> AuthHandler r usr