diff options
author | defanor <defanor@uberspace.net> | 2019-02-20 12:33:50 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2019-02-20 12:33:50 +0300 |
commit | 3fcb323b049f076e0dfd2527de981a173e260086 (patch) | |
tree | d318252b6491023a22b35d2cdb0b128b10e6984c | |
parent | 58f967265b8f4637de0bf285e99bf7a3051e1961 (diff) |
Allow requests without queries
Apply a stylesheet to <pgx:no_query /> in that case.
This is slightly out of the project scope, but handy in some
cases (helps to avoid dummy queries or additional software), and done
with a single line change.
-rw-r--r-- | Main.hsc | 2 | ||||
-rw-r--r-- | example/common.xsl | 4 |
2 files changed, 5 insertions, 1 deletions
@@ -301,7 +301,7 @@ serve xsltDirectory ioc ps = case lookup "q" ps of if pNeeded || pUsed then requireAuth else redb 500 [("message", "Database connection failed")] - _ -> respError 418 [("message", "No query is provided")] + _ -> resp 200 "<no_query xmlns=\"urn:x-pgxhtml\" />" where xsltPath = xsltDirectory </> takeFileName (BS.unpack $ fromMaybe "default" $ lookup "t" ps) diff --git a/example/common.xsl b/example/common.xsl index 15838ba..c832552 100644 --- a/example/common.xsl +++ b/example/common.xsl @@ -41,4 +41,8 @@ <dd><xsl:copy-of select="text()" /></dd> </xsl:template> + <xsl:template match="pgx:no_query"> + <p>No query is provided.</p> + </xsl:template> + </xsl:stylesheet> |