From a4a2c8b8867ee3ce4e62182ad7a8a6979133b3f3 Mon Sep 17 00:00:00 2001
From: Ruslan Talpa <ruslan.talpa@gmail.com>
Date: Mon, 28 Sep 2015 16:46:33 +0300
Subject: [PATCH] trying to make it work with ghc 7.8 (2)

---
 src/PostgREST/Functions.hs | 4 ++--
 src/PostgREST/Parsers.hs   | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/PostgREST/Functions.hs b/src/PostgREST/Functions.hs
index eaca079a9..2338d7ad9 100644
--- a/src/PostgREST/Functions.hs
+++ b/src/PostgREST/Functions.hs
@@ -8,7 +8,7 @@ import           Data.List         (find)
 import           Data.Monoid
 import           Data.Text         hiding (filter, find, foldr, head, last, map,
                                     null)
-
+import           Control.Applicative
 import           Data.Tree
 import           PostgREST.PgQuery (PStmt, QualifiedIdentifier (..), fromQi,
                                     orderT, pgFmtIdent, pgFmtLit, pgFmtOperator,
@@ -16,7 +16,7 @@ import           PostgREST.PgQuery (PStmt, QualifiedIdentifier (..), fromQi,
 import           PostgREST.Types
 --import qualified Hasql as H
 --import qualified Hasql.Postgres as P
-import Control.Applicative ((<|>))
+--import Control.Applicative ((<|>))
 import qualified Data.Vector       as V (empty)
 import qualified Hasql.Backend     as B
 
diff --git a/src/PostgREST/Parsers.hs b/src/PostgREST/Parsers.hs
index 78e0d9afa..794b94e7a 100644
--- a/src/PostgREST/Parsers.hs
+++ b/src/PostgREST/Parsers.hs
@@ -6,6 +6,8 @@ where
 
 import           Control.Applicative hiding ((<$>))
 import           Data.Functor ((<$>))
+import           Data.Traversable (traverse)
+
 import           Control.Monad                 (join)
 import           Data.List                     (delete, find)
 import           Data.Maybe