File tree Expand file tree Collapse file tree 1 file changed +1
-9
lines changed
servant-docs/src/Servant/Docs Expand file tree Collapse file tree 1 file changed +1
-9
lines changed Original file line number Diff line number Diff line change @@ -42,6 +42,7 @@ import GHC.Generics
42
42
import GHC.TypeLits
43
43
import Servant.API
44
44
import Servant.API.ContentTypes
45
+ import Servant.API.TypeLevel
45
46
import Servant.Utils.Links
46
47
47
48
import qualified Data.HashMap.Strict as HM
@@ -306,15 +307,6 @@ docs p = docsWithOptions p defaultDocOptions
306
307
docsWithOptions :: HasDocs api => Proxy api -> DocOptions -> API
307
308
docsWithOptions p = docsFor p (defEndpoint, defAction)
308
309
309
- -- | Closed type family, check if endpoint is exactly within API.
310
-
311
- -- We aren't sure what affects how an Endpoint is built up, so we require an
312
- -- exact match.
313
- type family IsIn (endpoint :: * ) (api :: * ) :: Constraint where
314
- IsIn e (sa :<|> sb ) = Or (IsIn e sa ) (IsIn e sb )
315
- IsIn (e :> sa ) (e :> sb ) = IsIn sa sb
316
- IsIn e e = ()
317
-
318
310
-- | Create an 'ExtraInfo' that is guaranteed to be within the given API layout.
319
311
--
320
312
-- The safety here is to ensure that you only add custom documentation to an
You can’t perform that action at this time.
0 commit comments