diff --git a/rel8.cabal b/rel8.cabal index 06163517..a4108e71 100644 --- a/rel8.cabal +++ b/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 diff --git a/src/Rel8.hs b/src/Rel8.hs index a81cd3ac..061f80d1 100644 --- a/src/Rel8.hs +++ b/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 diff --git a/src/Rel8/Decoder.hs b/src/Rel8/Decoder.hs new file mode 100644 index 00000000..cbeaf312 --- /dev/null +++ b/src/Rel8/Decoder.hs @@ -0,0 +1,6 @@ +module Rel8.Decoder ( + Decoder (..), + Parser, + parseDecoder, +) where +import Rel8.Type.Decoder diff --git a/src/Rel8/Encoder.hs b/src/Rel8/Encoder.hs new file mode 100644 index 00000000..70c2d545 --- /dev/null +++ b/src/Rel8/Encoder.hs @@ -0,0 +1,4 @@ +module Rel8.Encoder ( + Encoder (..), +) where +import Rel8.Type.Encoder diff --git a/src/Rel8/Type/Decoder.hs b/src/Rel8/Type/Decoder.hs index 95398e07..c04ac7f1 100644 --- a/src/Rel8/Type/Decoder.hs +++ b/src/Rel8/Type/Decoder.hs @@ -2,6 +2,7 @@ {-# language DeriveFunctor #-} {-# language NamedFieldPuns #-} {-# language StandaloneKindSignatures #-} +{-# language DuplicateRecordFields #-} module Rel8.Type.Decoder ( Decoder (..), diff --git a/src/Rel8/Type/Encoder.hs b/src/Rel8/Type/Encoder.hs index 30018e3a..3d0dbbb0 100644 --- a/src/Rel8/Type/Encoder.hs +++ b/src/Rel8/Type/Encoder.hs @@ -3,6 +3,7 @@ {-# language RecordWildCards #-} {-# language StandaloneKindSignatures #-} {-# language StrictData #-} +{-# language DuplicateRecordFields #-} module Rel8.Type.Encoder ( Encoder (..),