yesod-dsl-0.1.1.20: codegen/get-handler-return.cg
return $ A.object [
"totalCount" .= ((\(Database.Esqueleto.Value v) -> (v::Int)) (head count)),
"result" .= (toJSON $ map (\row -> case row of
(~{intercalate ", " resultFields}) -> A.object [
~{rstrip $ indent 20 $ intercalate ",\n" $ map rstrip $ lines mappedResultFields}
]
_ -> A.object []
) results)
]