Add typed hole placeholders for usersShow and usersIndex

bradparker · bradparker · commit 0e5e7ad04819 · 2019-10-02T20:37:35.000+10:00
diff --git a/src/Main.hs b/src/Main.hs
@@ -17,6 +17,7 @@ import Servant
   , (:>)
   , Capture
   , Get
+  , Handler
   , JSON
   , Server
   , serve
@@ -43,8 +44,14 @@ type UsersAPI =
   "users"
     :> (UsersIndex :<|> UsersShow)
 
+usersIndex :: Handler [User]
+usersIndex = _
+
+usersShow :: String -> Handler User
+usersShow _uname = _
+
 usersServer :: Server UsersAPI
-usersServer = _usersIndex :<|> _usersShow
+usersServer = usersIndex :<|> usersShow
 
 usersApp :: Application
 usersApp = serve (Proxy @UsersAPI) usersServer
