yesod-dsl-0.1.1.16: codegen/default-sort-field.cg

"~{pn}" -> case (sortJsonMsg_direction sjm) of 
    "ASC"  -> orderBy [ asc (~{vn} ~{projectField isMaybe} ~{entityFieldTypeName e f}) ] 
    "DESC" -> orderBy [ desc (~{vn} ~{projectField isMaybe} ~{entityFieldTypeName e f}) ] 
    _      -> return ()