From 74e16abaa1476e0aba6f00285bcfb784d3d9a893 Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Mon, 1 Sep 2014 21:06:45 -0700 Subject: [PATCH] Alphabetize table names in "/" to make test pass reproducibly --- src/PgStructure.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/PgStructure.hs b/src/PgStructure.hs index 8152b8c76..02767aa76 100644 --- a/src/PgStructure.hs +++ b/src/PgStructure.hs @@ -77,7 +77,8 @@ tables s conn = do "select table_schema, table_name,\ \ is_insertable_into\ \ from information_schema.tables\ - \ where table_schema = ?" [toSql s] + \ where table_schema = ?\ + \ order by table_name" [toSql s] return $ mapMaybe mkTable r where