Move Decoder and Encoder to own module to avoid ambiguity

rel8.cabal

@@ -64,6 +64,8 @@ library
   exposed-modules:
     Rel8
     Rel8.Array
+    Rel8.Decoder
+    Rel8.Encoder
     Rel8.Expr.Num
     Rel8.Expr.Text
     Rel8.Expr.Time

src/Rel8.hs

@@ -23,12 +23,6 @@ module Rel8
   , mapTypeInformation
   , parseTypeInformation
 
-    -- *** @Decoder@
-  , Decoder(..)
-
-    -- *** @Encoder@
-  , Encoder(..)
-
     -- ** The @DBType@ hierarchy
   , DBSemigroup(..)
   , DBMonoid(..)
@@ -497,9 +491,7 @@ import Rel8.Table.Transpose
 import Rel8.Table.Window
 import Rel8.Type
 import Rel8.Type.Composite
-import Rel8.Type.Decoder
 import Rel8.Type.Eq
-import Rel8.Type.Encoder
 import Rel8.Type.Enum
 import Rel8.Type.Information
 import Rel8.Type.JSONBEncoded

src/Rel8/Decoder.hs

@@ -0,0 +1,6 @@
+module Rel8.Decoder (
+  Decoder (..),
+  Parser,
+  parseDecoder,
+) where
+import Rel8.Type.Decoder

src/Rel8/Encoder.hs

@@ -0,0 +1,4 @@
+module Rel8.Encoder (
+  Encoder (..),
+) where
+import Rel8.Type.Encoder

src/Rel8/Type/Decoder.hs

@@ -2,6 +2,7 @@
 {-# language DeriveFunctor #-}
 {-# language NamedFieldPuns #-}
 {-# language StandaloneKindSignatures #-}
+{-# language DuplicateRecordFields #-}
 
 module Rel8.Type.Decoder (
   Decoder (..),

src/Rel8/Type/Encoder.hs

@@ -3,6 +3,7 @@
 {-# language RecordWildCards #-}
 {-# language StandaloneKindSignatures #-}
 {-# language StrictData #-}
+{-# language DuplicateRecordFields #-}
 
 module Rel8.Type.Encoder (
   Encoder (..),