Add skeleton main function

bradparker · bradparker · commit 1cfca981466b · 2019-10-02T20:31:20.000+10:00
diff --git a/how-does-servants-type-dsl-work.cabal b/how-does-servants-type-dsl-work.cabal
@@ -11,5 +11,7 @@ executable server
   build-depends:       base ^>=4.12.0.0
                      , servant-server
                      , time
+                     , wai
+                     , warp
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Main.hs b/src/Main.hs
@@ -1,18 +1,23 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeOperators #-}
 {-# OPTIONS_GHC -Wall #-}
 
 module Main where
 
+import Data.Proxy (Proxy(Proxy))
 import Data.Time (Day)
 import GHC.Generics (Generic)
+import Network.Wai (Application)
+import Network.Wai.Handler.Warp (run)
 import Servant
   ( (:<|>)
   , (:>)
   , Capture
   , Get
   , JSON
+  , serve
   )
 
 data User = User
@@ -34,5 +39,8 @@ type UsersAPI =
   "users"
     :> (UsersIndex :<|> UsersShow)
 
+usersApp :: Application
+usersApp = serve (Proxy @UsersAPI) _usersServer
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = run 8080 usersApp
