[Move the code for parse errors into the template system
Neil Mitchell**20110131195958] {
hunk ./datadir/resources/template.html 73
+
+#export parseError
+<h1>$!errFormat$</h1>
+<p>
+	<b>Parse error:</b> $&errMessage$
+</p><p>
+	For information on what queries should look like, see the
+	<a href='http://www.haskell.org/haskellwiki/Hoogle'>user manual</a>.
+</p>
+
hunk ./src/Web/Page.hs 37
+parseError errFormat errMessage = ""
+  ++ "<h1>"
+  ++ errFormat
+  ++ "</h1>\n<p>\n\t<b>Parse error:</b> "
+  ++& errMessage
+  ++ "\n</p><p>\n\tFor information on what queries should look like, see the\n\t<a href='http://www.haskell.org/haskellwiki/Hoogle'>user manual</a>.\n</p>\n"
+
hunk ./src/Web/Response.hs 82
-    ["<h1>" ++ showTagHTMLWith f (parseInput err) ++ "</h1>"
-    ,"<p>"
-    ,"  <b>Parse error:</b> " ++& errorMessage err
-    ,"</p><p>"
-    ,"  For information on what queries should look like, see the"
-    ,"  <a href='http://www.haskell.org/haskellwiki/Hoogle'>user manual</a>."
-    ,"</p>"
-    ]
+    [parseError (showTagHTMLWith f $ parseInput err) (errorMessage err)]
}