a226009 · servant · git.iko.soy

git.iko.soy/servant

Add Functor instance to AuthHandler. (#1638)

commita22600979a747ee201b8a1a2a84469285631682c authorTorgeir Strand Henriksen <torgeirsh@users.noreply.github.com> dateFri 30 Dec 2022, 12:56 (4 years ago) parentb8675c0

2 files changed+4−1

compare with master

unifiedsplit

changelog.d/1638+2 servant-server/src/Servant/Server/Experimental/Auth.hs+2−1

changelog.d/1638new file+2

@@ -0,0 +1,2 @@

1+synopsis: Add Functor instance to AuthHandler.

2+prs: #1638

servant-server/src/Servant/Server/Experimental/Auth.hs+2−1

@@ -1,5 +1,6 @@

11{-# OPTIONS_GHC -fno-warn-orphans #-}

22{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveFunctor #-}

34{-# LANGUAGE DeriveGeneric #-}

45{-# LANGUAGE FlexibleContexts #-}

56{-# LANGUAGE FlexibleInstances #-}

@@ -44,7 +45,7 @@ type family AuthServerData a :: *

4445-- NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGE

4546newtype AuthHandler r usr = AuthHandler

4647 { unAuthHandler :: r -> Handler usr }

47− deriving (Generic, Typeable)

48+ deriving (Functor, Generic, Typeable)

4849

4950-- | NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGE

5051mkAuthHandler :: (r -> Handler usr) -> AuthHandler r usr