eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove IsIn from servant-docs

Browse Source
This commit is contained in:
Nickolay Kudasov 2016-01-20 17:56:52 +03:00 committed by Oleg Grenrus
parent e9b281f3cc
commit a6de4ba123
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
servant-docs/src/Servant/Docs/Internal.hs
View File

@ -42,6 +42,7 @@ import GHC.Generics
import GHC.TypeLits
import Servant.API
import Servant.API.ContentTypes
import Servant.API.TypeLevel
import Servant.Utils.Links
import qualified Data.HashMap.Strict as HM
@ -306,15 +307,6 @@ docs p = docsWithOptions p defaultDocOptions
docsWithOptions :: HasDocs api => Proxy api -> DocOptions -> API
docsWithOptions p = docsFor p (defEndpoint, defAction)
-- | Closed type family, check if endpoint is exactly within API.
-- We aren't sure what affects how an Endpoint is built up, so we require an
-- exact match.
type family IsIn (endpoint :: *) (api :: *) :: Constraint where
IsIn e (sa :<|> sb) = Or (IsIn e sa) (IsIn e sb)
IsIn (e :> sa) (e :> sb) = IsIn sa sb
IsIn e e = ()
-- | Create an 'ExtraInfo' that is guaranteed to be within the given API layout.
--
-- The safety here is to ensure that you only add custom documentation to an