Fix for #302

2015-10-08 11:33:42 +03:00
parent 2d0c4fecd8
commit 6ba4dc4617
6 changed files with 81 additions and 57 deletions
@@ -10,7 +10,7 @@ import qualified Hasql                   as H
 import qualified Hasql.Backend           as B
 import qualified Hasql.Postgres          as P
 import           PostgREST.RangeQuery
-import           PostgREST.Types         (OrderTerm (..))
+import           PostgREST.Types         (OrderTerm (..), QualifiedIdentifier(..))

 import           Control.Monad           (join)
 import qualified Data.Aeson              as JSON
@@ -38,11 +38,6 @@ instance Monoid PStmt where
  mempty = B.Stmt "" empty True
 type StatementT = PStmt -> PStmt

-data QualifiedIdentifier = QualifiedIdentifier {
-  qiSchema :: T.Text
-, qiName   :: T.Text
-} deriving (Show)
-

 limitT :: Maybe NonnegRange -> StatementT
 limitT r q =