rudaments

but it fails because stripe-core-2.5.0:Web.Stripe.Types.Event has no ToJSON
instance

PaymentServer.cabal

@@ -43,6 +43,15 @@ executable PaymentServer-exe
                      , PaymentServer
   default-language:    Haskell2010
 
+executable PaymentServer-apidocs
+  hs-source-dirs:      apidocs
+  main-is:             Main.hs
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N -Wmissing-import-lists -Wunused-imports
+  build-depends:       base
+                     , servant-docs
+                     , PaymentServer
+  default-language:    Haskell2010
+
 test-suite PaymentServer-test
   type:                exitcode-stdio-1.0
   hs-source-dirs:      test

apidocs/Main.hs

+module Main
+  ( main
+  ) where
+
+import PaymentServer.Server
+  ( paymentServerAPI
+  )
+import Servant.Docs
+  ( API
+  , docs
+  , markdown
+  )
+
+-- Generate the Documentation's ADT
+greetDocs :: API
+greetDocs = docs paymentServerAPI
+
+main :: IO ()
+main = print $ markdown greetDocs

src/PaymentServer/Server.hs

@@ -4,7 +4,9 @@
 -- | This module exposes a Servant-based Network.Wai server for payment
 -- interactions.
 module PaymentServer.Server
-  ( paymentServerApp
+  ( PaymentServerAPI
+  , paymentServerAPI
+  , paymentServerApp
   ) where
 
 import Servant