Create a value for usersServer with typed holes

bradparker · bradparker · commit 12aa753d4c3a · 2019-10-02T20:35:21.000+10:00
diff --git a/src/Main.hs b/src/Main.hs
@@ -13,11 +13,12 @@ import GHC.Generics (Generic)
 import Network.Wai (Application)
 import Network.Wai.Handler.Warp (run)
 import Servant
-  ( (:<|>)
+  ( (:<|>)((:<|>))
   , (:>)
   , Capture
   , Get
   , JSON
+  , Server
   , serve
   )
 
@@ -42,8 +43,11 @@ type UsersAPI =
   "users"
     :> (UsersIndex :<|> UsersShow)
 
+usersServer :: Server UsersAPI
+usersServer = _usersIndex :<|> _usersShow
+
 usersApp :: Application
-usersApp = serve (Proxy @UsersAPI) _usersServer
+usersApp = serve (Proxy @UsersAPI) usersServer
 
 main :: IO ()
 main = run 8080 usersApp
