Making the diff smaller. Fix tests next.

Author: erewok

servant-docs/src/Servant/Docs/Internal.hs

@@ -1074,13 +1074,14 @@ instance (ToForm a, ToSample a, HasDocs api)
 
 instance (ToFragment (Fragment a), HasDocs api)
       => HasDocs (Fragment a :> api) where
+
   docsFor Proxy (endpoint, action) =
     docsFor subApiP (endpoint, action')
+
     where subApiP = Proxy :: Proxy api
           fragmentP = Proxy :: Proxy (Fragment a)
           action' = set fragment (Just (toFragment fragmentP)) action
 
-
 instance HasDocs Raw where
   docsFor _proxy (endpoint, action) _ =
     single endpoint action

servant-docs/test/Servant/DocsSpec.hs

@@ -82,7 +82,7 @@ spec = describe "Servant.Docs" $ do
               (defAction & notes <>~ [DocNote "Get an Integer" ["get an integer in Json or plain text"]])
               <>
               extraInfo
-              (Proxy :: Proxy ("postJson" :> ReqBody '[JSON] String :> Post '[JSON] Datatype1))
+              (Proxy :: Proxy (ReqBody '[JSON] String :> Post '[JSON] Datatype1))
               (defAction & notes <>~ [DocNote "Post data" ["Posts some Json data"]])
       md = markdown (docsWith defaultDocOptions [] extra (Proxy :: Proxy TestApi1))
     tests1 md
@@ -178,11 +178,12 @@ instance MimeRender PlainText Int where
   mimeRender _ = cs . show
 
 type TestApi1 = Get '[JSON, PlainText] (Headers '[Header "Location" String] Int)
-           :<|> "postJson"   :> ReqBody '[JSON] String          :> Post '[JSON] Datatype1
+           :<|> ReqBody '[JSON] String :> Post '[JSON] Datatype1
+           :<|> Header "X-Test" Int :> Put '[JSON] Int
+           :<|> "empty-api" :> EmptyAPI
            :<|> "qparam"     :> QueryParam "query" String       :> Get '[JSON] Datatype1
            :<|> "qparamform" :> QueryParamForm Datatype1 :> Get '[JSON] Datatype1
-           :<|> "header"     :> Header "X-Test" Int             :> Put '[JSON] Int
-           :<|> "empty-api"                                     :> EmptyAPI
+
 
 type TestApi2 = "duplicate-endpoint" :> Get '[JSON]      Datatype1
            :<|> "duplicate-endpoint" :> Get '[PlainText] Int