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

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