[Add queryHyphen argument to the welcome page, to put a hyphen in only in the right places
Neil Mitchell**20110201194459] {
hunk ./datadir/resources/template.html 7
-        <title>$&query$Hoogle</title>
+        <title>$&query$ $&queryHyphen$ Hoogle</title>
hunk ./src/Web/Page.hs 5
-  {header :: String -> String -> String -> String
+  {header :: String -> String -> String -> String -> String
hunk ./src/Web/Page.hs 18
-            ("header",["css","js","query"]) :
+            ("header",["css","js","query","queryHyphen"]) :
hunk ./src/Web/Page.hs 23
-        _header css js query = __header [css,js,query]
+        _header css js query queryHyphen = __header [css,js,query,queryHyphen]
hunk ./src/Web/Page.hs 28
-_header css js query = ""
+_header css js query queryHyphen = ""
hunk ./src/Web/Page.hs 31
-  ++ "Hoogle</title>\n        <link type='text/css' rel='stylesheet' href='res/hoogle.css?version="
+  ++ " "
+  ++ escapeHTML queryHyphen
+  ++ " Hoogle</title>\n        <link type='text/css' rel='stylesheet' href='res/hoogle.css?version="
hunk ./src/Web/Response.hs 50
-            header templates updatedCss updatedJs (queryText q ++ if null $ queryText q then "" else " - ") ++
+            header templates updatedCss updatedJs (queryText q) ['-' | queryText q /= ""] ++
}