[Refactor the code into that which can appear on any page, and that which appears on the search page, to make the front page more reusable Neil Mitchell**20060818163546] { hunk ./src/Web/HTML.hsx 9 -htmlError :: String -> String -> String -htmlError search errmsg = searchPage search $ - - - - - -
Invalid SearchNo results found
- <+> -
- Error, your search was invalid:
- <% errmsg %> - -
- - - +-- the individual elements that make up a web page: +doctype = "" hunk ./src/Web/HTML.hsx 12 -searchPage :: String -> XML -> String -searchPage search inner = - "" - ++ show ( +-- null search means its the front page +anyPage search body = doctype ++ "\n" ++ show html + where + html = hunk ./src/Web/HTML.hsx 19 - <% search %> - Hoogle + <% if null search then "" else search ++ " - " %>Hoogle hunk ./src/Web/HTML.hsx 24 - + hunk ./src/Web/HTML.hsx 45 - - -
-
- - -
-
- - <% inner %> + <% body %> hunk ./src/Web/HTML.hsx 52 - ) + + + + +htmlError :: String -> String -> String +htmlError search errmsg = searchPage search $ + + + + + +
Invalid SearchNo results found
+ <+> +
+ Error, your search was invalid:
+ <% errmsg %> + +
+ + + + +searchPage :: String -> XML -> String +searchPage search inner = anyPage search $ + + <+> +
+
+ + +
+
+ <+> + <% inner %> }