17 lines
289 B
Haskell
17 lines
289 B
Haskell
{-# LANGUAGE Strict #-}
|
|
|
|
module Main (main) where
|
|
|
|
import Relude
|
|
|
|
import Feed.V1.Server qualified as V1
|
|
import Feed.V1.Spec (FeedApi)
|
|
import Network.Wai.Cli
|
|
import Servant.Server
|
|
|
|
apiProxy :: Proxy FeedApi
|
|
apiProxy = Proxy
|
|
|
|
main :: IO ()
|
|
main = V1.mkServer >>= defWaiMain . serve apiProxy
|