From e53fb10483a9bceac4f39993b800d1bf7234b531 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Wed, 3 Feb 2016 11:36:17 -0800
Subject: [PATCH] Fix lint

---
 src/PostgREST/App.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/PostgREST/App.hs b/src/PostgREST/App.hs
index 530924809..d1d27b4a8 100644
--- a/src/PostgREST/App.hs
+++ b/src/PostgREST/App.hs
@@ -152,7 +152,7 @@ app dbStructure conf reqBody req =
                  pkeys = map pkName $ filter (filterPk tSchema tTable) allPrKeys
                  body = encode (TableOptions cols pkeys)
                  filterCol :: Schema -> TableName -> Column -> Bool
-                 filterCol sc tb (Column{colTable=Table{tableSchema=s, tableName=t}}) = s==sc && t==tb
+                 filterCol sc tb Column{colTable=Table{tableSchema=s, tableName=t}} = s==sc && t==tb
                  filterCol _ _ _ =  False in
           return $ responseLBS status200 [jsonH, allOrigins] $ cs body
         else