Move some ListTable operations to Rel8.Array to avoid name clashes (#286

)

rel8.cabal

@@ -61,6 +61,7 @@ library
     src
   exposed-modules:
     Rel8
+    Rel8.Array
     Rel8.Expr.Num
     Rel8.Expr.Text
     Rel8.Expr.Time

src/Rel8.hs

@@ -101,10 +101,6 @@ module Rel8
   , manyExpr
   , catListTable
   , catList
-  , head, headExpr
-  , index, indexExpr
-  , last, lastExpr
-  , length, lengthExpr
 
     -- ** @NonEmptyTable@
   , NonEmptyTable
@@ -114,10 +110,6 @@ module Rel8
   , someExpr
   , catNonEmptyTable
   , catNonEmpty
-  , head1, head1Expr
-  , index1, index1Expr
-  , last1, last1Expr
-  , length1, length1Expr
 
     -- ** @NullTable@
   , NullTable
@@ -396,8 +388,6 @@ import Rel8.Expr.Bool
 import Rel8.Expr.Default
 import Rel8.Expr.Eq
 import Rel8.Expr.Function
-import Rel8.Expr.List
-import Rel8.Expr.NonEmpty
 import Rel8.Expr.Null
 import Rel8.Expr.Opaleye (unsafeCastExpr, unsafeLiteral)
 import Rel8.Expr.Ord

src/Rel8/Array.hs

@@ -0,0 +1,26 @@
+module Rel8.Array
+  (
+    -- ** @ListTable@
+    ListTable
+  , head, headExpr
+  , index, indexExpr
+  , last, lastExpr
+  , length, lengthExpr
+
+    -- ** @NonEmptyTable@
+  , NonEmptyTable
+  , head1, head1Expr
+  , index1, index1Expr
+  , last1, last1Expr
+  , length1, length1Expr
+  )
+where
+
+-- base
+import Prelude hiding (head, last, length)
+
+-- rel8
+import Rel8.Expr.List
+import Rel8.Expr.NonEmpty
+import Rel8.Table.List
+import Rel8.Table.NonEmpty

src/Rel8/Statement/OnConflict.hs

@@ -3,7 +3,6 @@
 {-# language GADTs #-}
 {-# language LambdaCase #-}
 {-# language NamedFieldPuns #-}
-{-# language NoFieldSelectors #-}
 {-# language OverloadedStrings #-}
 {-# language RecordWildCards #-}
 {-# language StandaloneKindSignatures #-}