From 37c0a2d83104f25195b3837488bc27b15afcc67b Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Tue, 14 Oct 2014 14:04:45 -0700
Subject: [PATCH] All tests passing, none pending

Standardize the order of enum value lists
---
 src/PgStructure.hs            | 2 +-
 test/Feature/StructureSpec.hs | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/PgStructure.hs b/src/PgStructure.hs
index b4bdad305..59a40f6e1 100644
--- a/src/PgStructure.hs
+++ b/src/PgStructure.hs
@@ -136,7 +136,7 @@ columns s t conn = do
     \   left outer join ( \
     \     select n.nspname as s, \
     \            t.typname as n, \
-    \            array_agg(e.enumlabel) as vals \
+    \            array_agg(e.enumlabel ORDER BY e.enumsortorder) as vals \
     \     from pg_type t \
     \        join pg_enum e on t.oid = e.enumtypid \
     \        join pg_catalog.pg_namespace n ON n.oid = t.typnamespace \
diff --git a/test/Feature/StructureSpec.hs b/test/Feature/StructureSpec.hs
index 93f7a1741..42cffb610 100644
--- a/test/Feature/StructureSpec.hs
+++ b/test/Feature/StructureSpec.hs
@@ -35,7 +35,6 @@ uRole = "dbapi_test"} in
 
   describe "Table info" $ do
     it "is available with OPTIONS verb" $
-      pending_ >>
       request methodOptions "/menagerie" [] "" `shouldRespondWith`
       [json|
       {