[RqData: update queryString / body to not refer to things from the next section
Jeremy Shaw <jeremy@seereason.com>**20101020012201
 Ignore-this: 5e64171058c3e3faca449bec25db8df6
] hunk ./RqDataError.lhs 55
-<p>But if we leave off the query parameters we get <a href="http://localhost:8000/">http://localhost:8000/</a>, we will get a list of errors:
+<p>But if we leave off the query parameters <a href="http://localhost:8000/">http://localhost:8000/</a>, we will get a list of errors:
hunk ./RqDataLimiting.lhs 16
-> body        :: RqData a -> RqData a
-> queryString :: RqData a -> RqData a
+> body :: (HasRqData m) => m a -> m a
+> queryString ::  (HasRqData m) => m a -> m a
hunk ./RqDataLimiting.lhs 21
-<p>If we want to only look in the request body we could modified <code>helloRq</code> to be:</p>
+<p>Using these filters we can modify <code>helloPart</code> so that the <code>greeting</code> must come from the QUERY_STRING and the <code>noun</code> must come from the request body:</p>
hunk ./RqDataLimiting.lhs 25
-> helloRq :: RqData (String, String)
-> helloRq =
->     body ((,) <$> look "greeting" <*> look "noun")
-#endif
-</div>
-
-<p>In that example, we apply a single <code>body</code> filter which
-applies to all of the <code>look</code> calls. But, we could also mix
-and match. In this varation we look in the QUERY_STRING for the
-<i>greeting</i> and the request body for the <i>noun</i></p>
-
-<div class="code">
-#ifdef HsColour
-> helloRq :: RqData (String, String)
-> helloRq =
->     (,) <$> (queryString $ look "greeting") <*> (body $ look "noun")
+> helloPart :: ServerPart String
+> helloPart =
+>     do greeting <- queryString $ look "greeting"
+>        noun     <- body        $ look "noun"
+>        ok $ greeting ++ ", " ++ noun
hunk ./RqDataLimiting.lhs 39
-> helloRq :: RqData (String, String)
-> helloRq =
+> greetingRq :: ServerPart String
+> greetingRq =
hunk ./RqDataLimiting.lhs 45
-<p>This <code>RqData</code> would never match anything because the
+<p>This code would never match anything because the