Implement usersIndex

bradparker · bradparker · commit 25cb688c51e2 · 2019-10-02T20:43:27.000+10:00
diff --git a/src/Main.hs b/src/Main.hs
@@ -63,7 +63,7 @@ users =
   ]
 
 usersIndex :: Handler [User]
-usersIndex = _
+usersIndex = pure users
 
 usersShow :: String -> Handler User
 usersShow _uname = _

Original file line number	Diff line number	Diff line change
`@@ -63,7 +63,7 @@ users =`
`63`	`63`	`]`
`64`	`64`
`65`	`65`	`usersIndex :: Handler [User]`
`66`		`-usersIndex = _`
	`66`	`+usersIndex = pure users`
`67`	`67`
`68`	`68`	`usersShow :: String -> Handler User`
`69`	`69`	`usersShow _uname = _`