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

case defaultSortJson of 
    Just xs -> mapM_ (\sjm -> case sortJsonMsg_property sjm of
~{indent 12 $ fields}
            _ -> return ()
        ) xs
    Nothing -> orderBy [ ~{intercalate ", " staticSortFields} ]