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

Add missing slash character in generated docs.

Browse source
This commit is contained in:
Phil Freeman 2014-12-31 17:19:35 -08:00
parent 87b7c8e376
commit 42fc048dfc
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Servant/Docs.hs
View file

@ -175,7 +175,7 @@ instance Show Endpoint where
-- POST /foo -- POST /foo
-- @ -- @
defEndpoint :: Endpoint defEndpoint :: Endpoint
defEndpoint = Endpoint "/" DocGET defEndpoint = Endpoint "" DocGET
instance Hashable Endpoint instance Hashable Endpoint
@ -577,7 +577,7 @@ instance (KnownSymbol path, HasDocs sublayout) => HasDocs (path :> sublayout) wh
docsFor sublayoutP (endpoint', action) docsFor sublayoutP (endpoint', action)
where sublayoutP = Proxy :: Proxy sublayout where sublayoutP = Proxy :: Proxy sublayout
endpoint' = endpoint & path <>~ symbolVal pa endpoint' = endpoint & path <>~ '/' : symbolVal pa
pa = Proxy :: Proxy path pa = Proxy :: Proxy path
{- {-