yesod-dsl-0.1: 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 ", " (map (hsOrderBy ctx) $ sqOrderBy sq)} ]