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