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