Skip to content
Snippets Groups Projects
Commit fe7c8335 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

Remove this template boilerplate

parent ff8d6afb
No related branches found
No related tags found
1 merge request!2Stripe webhook
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeOperators #-}
module Lib
( startApp
, app
) where
import Data.Aeson
import Data.Aeson.TH
import Network.Wai
import Network.Wai.Handler.Warp
import Servant
type API =
"webhook" :> Post '[JSON] ()
startApp :: IO ()
startApp = run 8080 app
app :: Application
app = serve api server
api :: Proxy API
api = Proxy
server :: Server API
server = return ()
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment