servant/servant/src/Servant/API/Experimental/Auth.hs

15 lines
467 B
Haskell
Raw Normal View History

2018-03-11 16:58:31 +01:00
{-# LANGUAGE DataKinds #-}
2016-02-17 20:59:58 +01:00
{-# LANGUAGE DeriveDataTypeable #-}
2018-03-11 16:58:31 +01:00
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PolyKinds #-}
module Servant.API.Experimental.Auth where
2016-02-17 20:59:58 +01:00
2018-03-11 16:58:31 +01:00
import Data.Typeable
(Typeable)
2016-02-17 20:59:58 +01:00
-- | A generalized Authentication combinator. Use this if you have a
-- non-standard authentication technique.
--
-- NOTE: THIS API IS EXPERIMENTAL AND SUBJECT TO CHANGE.
2016-02-17 20:59:58 +01:00
data AuthProtect (tag :: k) deriving (Typeable)