[Move to using .ths files for certain things, minimal at the moment Neil Mitchell**20060813095949] { addfile ./src/Web/HTML.ths hunk ./src/Web/HTML.ths 1 + +> -- generate pages, using .ths preprocessor +> module Web.HTML(htmlError) where + + +> htmlError :: String -> String -> String +> htmlError search errmsg = pure +<% searchDoneBegin search %> + + + + + +
Invalid SearchNo results found
+ +
+ Error, your search was invalid:
+ <% errmsg %> + +
+ +<% searchDoneEnd %> + + + + + +> searchDoneBegin :: String -> String +> searchDoneBegin search = pure + + + + + $ - Hoogle + + + + + + + + + + + + + + +
+
+ + +
+
+ + + + +> searchDoneEnd :: String +> searchDoneEnd = pure + + + + hunk ./src/Web/Main.hs 22 +import Web.HTML hunk ./src/Web/Main.hs 91 - outputFileParam "prefix" input - outputFileParam "error" err - outputFileParam "suffix" input + putStrLn $ htmlError input err }