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)} ]