Alphabetize table names in "/" to make test pass reproducibly

This commit is contained in:
Joe Nelson
2014-09-01 21:06:45 -07:00
parent cf42d80fc4
commit 74e16abaa1
+2 -1
View File
@@ -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