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

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