summaryrefslogtreecommitdiff
path: root/Main.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hsc')
-rw-r--r--Main.hsc2
1 files changed, 1 insertions, 1 deletions
diff --git a/Main.hsc b/Main.hsc
index 3c247de..47a4366 100644
--- a/Main.hsc
+++ b/Main.hsc
@@ -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)