Merge pull request #3 from spicydonuts/master

fixed get user by id filter

_posts/2015-08-19-practical-haskell-json-api.md

@@ -269,7 +269,7 @@ Here's what `src/Main.hs` should look like when you're done. Check out the [full
 
         get "/users/:id" $ do
           id <- param "id"
-          json (filter matchesId allUsers)
+          json $ filter (matchesId id) allUsers
 
 Playing around
 --------------