getQueryName = liftM qName getQuestion
respond :: ( SaneAnswerType qt at, SaneAnswerClass qc ac
, QueryType qt, RecordType at dt
getQueryName = liftM qName getQuestion
respond :: ( SaneAnswerType qt at, SaneAnswerClass qc ac
, QueryType qt, RecordType at dt