13 lines
308 B
Haskell
13 lines
308 B
Haskell
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE RankNTypes #-}
|
|
|
|
module Servant.API.RedirectOf where
|
|
|
|
import Data.Proxy (Proxy(..))
|
|
import Servant.Links
|
|
|
|
data RedirectOf api where
|
|
RedirectOf
|
|
:: (IsElem endpoint api, HasLink endpoint)
|
|
=> Proxy endpoint -> (forall a. MkLink endpoint a -> a) -> RedirectOf api
|