a226009 · servant · git.iko.soy

git.iko.soy/servant

on master help sign in

Add Functor instance to AuthHandler. (#1638)

a226009Torgeir Strand Henriksen4 years ago

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 @@

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

2{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveFunctor #-}

3{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE FlexibleContexts #-}

5{-# LANGUAGE FlexibleContexts #-}

5{-# LANGUAGE FlexibleInstances #-}

6{-# LANGUAGE FlexibleInstances #-}

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

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

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

45newtype AuthHandler r usr = AuthHandler

46newtype AuthHandler r usr = AuthHandler

46 { unAuthHandler :: r -> Handler usr }

47 { unAuthHandler :: r -> Handler usr }

47− deriving (Generic, Typeable)

48+ deriving (Functor, Generic, Typeable)

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

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

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

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