mirror of
https://github.com/ilyakooo0/servant.git
synced 2024-10-04 02:57:25 +03:00
Add Functor instance to AuthHandler. (#1638)
This commit is contained in:
parent
b8675c0924
commit
a22600979a
2
changelog.d/1638
Normal file
2
changelog.d/1638
Normal file
@ -0,0 +1,2 @@
|
||||
synopsis: Add Functor instance to AuthHandler.
|
||||
prs: #1638
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user