diff --git a/hasql.cabal b/hasql.cabal index 03bd88d..3e5a799 100644 --- a/hasql.cabal +++ b/hasql.cabal @@ -86,26 +86,26 @@ library Hasql.Statement other-modules: - Hasql.Private.Commands - Hasql.Private.Connection - Hasql.Private.Decoders - Hasql.Private.Decoders.Array - Hasql.Private.Decoders.Composite - Hasql.Private.Decoders.Result - Hasql.Private.Decoders.Results - Hasql.Private.Decoders.Row - Hasql.Private.Decoders.Value - Hasql.Private.Encoders - Hasql.Private.Encoders.Array - Hasql.Private.Encoders.Params - Hasql.Private.Encoders.Value - Hasql.Private.Errors - Hasql.Private.IO - Hasql.Private.Prelude - Hasql.Private.PreparedStatementRegistry - Hasql.Private.PTI - Hasql.Private.Session - Hasql.Private.Settings + Hasql.Commands + Hasql.Connection.Core + Hasql.Decoders.All + Hasql.Decoders.Array + Hasql.Decoders.Composite + Hasql.Decoders.Result + Hasql.Decoders.Results + Hasql.Decoders.Row + Hasql.Decoders.Value + Hasql.Encoders.All + Hasql.Encoders.Array + Hasql.Encoders.Params + Hasql.Encoders.Value + Hasql.Errors + Hasql.IO + Hasql.Prelude + Hasql.PreparedStatementRegistry + Hasql.PTI + Hasql.Session.Core + Hasql.Settings build-depends: , aeson >=2 && <3 diff --git a/library/Hasql/Private/Commands.hs b/library/Hasql/Commands.hs similarity index 91% rename from library/Hasql/Private/Commands.hs rename to library/Hasql/Commands.hs index 1a851dc..2c7227f 100644 --- a/library/Hasql/Private/Commands.hs +++ b/library/Hasql/Commands.hs @@ -1,4 +1,4 @@ -module Hasql.Private.Commands +module Hasql.Commands ( Commands, asBytes, setEncodersToUTF8, @@ -8,7 +8,7 @@ where import qualified Data.ByteString.Builder as BB import qualified Data.ByteString.Lazy as BL -import Hasql.Private.Prelude +import Hasql.Prelude newtype Commands = Commands (DList BB.Builder) diff --git a/library/Hasql/Connection.hs b/library/Hasql/Connection.hs index fd1fbb6..8dc9996 100644 --- a/library/Hasql/Connection.hs +++ b/library/Hasql/Connection.hs @@ -11,5 +11,5 @@ module Hasql.Connection ) where -import Hasql.Private.Connection -import Hasql.Private.Settings +import Hasql.Connection.Core +import Hasql.Settings diff --git a/library/Hasql/Private/Connection.hs b/library/Hasql/Connection/Core.hs similarity index 86% rename from library/Hasql/Private/Connection.hs rename to library/Hasql/Connection/Core.hs index 3d1af26..9bf613c 100644 --- a/library/Hasql/Private/Connection.hs +++ b/library/Hasql/Connection/Core.hs @@ -1,12 +1,12 @@ -- | -- This module provides a low-level effectful API dealing with the connections to the database. -module Hasql.Private.Connection where +module Hasql.Connection.Core where import qualified Database.PostgreSQL.LibPQ as LibPQ -import qualified Hasql.Private.IO as IO -import Hasql.Private.Prelude -import qualified Hasql.Private.PreparedStatementRegistry as PreparedStatementRegistry -import qualified Hasql.Private.Settings as Settings +import qualified Hasql.IO as IO +import Hasql.Prelude +import qualified Hasql.PreparedStatementRegistry as PreparedStatementRegistry +import qualified Hasql.Settings as Settings -- | -- A single connection to the database. diff --git a/library/Hasql/Decoders.hs b/library/Hasql/Decoders.hs index f8f3ee5..6aa7a9c 100644 --- a/library/Hasql/Decoders.hs +++ b/library/Hasql/Decoders.hs @@ -69,4 +69,4 @@ module Hasql.Decoders ) where -import Hasql.Private.Decoders +import Hasql.Decoders.All diff --git a/library/Hasql/Private/Decoders.hs b/library/Hasql/Decoders/All.hs similarity index 96% rename from library/Hasql/Private/Decoders.hs rename to library/Hasql/Decoders/All.hs index 1088a20..d5305f2 100644 --- a/library/Hasql/Private/Decoders.hs +++ b/library/Hasql/Decoders/All.hs @@ -1,17 +1,17 @@ -- | -- A DSL for declaration of result decoders. -module Hasql.Private.Decoders where +module Hasql.Decoders.All where import qualified Data.Aeson as Aeson import qualified Data.Vector.Generic as GenericVector -import qualified Hasql.Private.Decoders.Array as Array -import qualified Hasql.Private.Decoders.Composite as Composite -import qualified Hasql.Private.Decoders.Result as Result -import qualified Hasql.Private.Decoders.Results as Results -import qualified Hasql.Private.Decoders.Row as Row -import qualified Hasql.Private.Decoders.Value as Value -import Hasql.Private.Prelude hiding (bool, maybe) -import qualified Hasql.Private.Prelude as Prelude +import qualified Hasql.Decoders.Array as Array +import qualified Hasql.Decoders.Composite as Composite +import qualified Hasql.Decoders.Result as Result +import qualified Hasql.Decoders.Results as Results +import qualified Hasql.Decoders.Row as Row +import qualified Hasql.Decoders.Value as Value +import Hasql.Prelude hiding (bool, maybe) +import qualified Hasql.Prelude as Prelude import qualified Network.IP.Addr as NetworkIp import qualified PostgreSQL.Binary.Decoding as A diff --git a/library/Hasql/Private/Decoders/Array.hs b/library/Hasql/Decoders/Array.hs similarity index 91% rename from library/Hasql/Private/Decoders/Array.hs rename to library/Hasql/Decoders/Array.hs index 9bc868d..24604a2 100644 --- a/library/Hasql/Private/Decoders/Array.hs +++ b/library/Hasql/Decoders/Array.hs @@ -1,6 +1,6 @@ -module Hasql.Private.Decoders.Array where +module Hasql.Decoders.Array where -import Hasql.Private.Prelude +import Hasql.Prelude import qualified PostgreSQL.Binary.Decoding as A newtype Array a diff --git a/library/Hasql/Private/Decoders/Composite.hs b/library/Hasql/Decoders/Composite.hs similarity index 88% rename from library/Hasql/Private/Decoders/Composite.hs rename to library/Hasql/Decoders/Composite.hs index 308869c..081e855 100644 --- a/library/Hasql/Private/Decoders/Composite.hs +++ b/library/Hasql/Decoders/Composite.hs @@ -1,6 +1,6 @@ -module Hasql.Private.Decoders.Composite where +module Hasql.Decoders.Composite where -import Hasql.Private.Prelude +import Hasql.Prelude import qualified PostgreSQL.Binary.Decoding as A newtype Composite a diff --git a/library/Hasql/Private/Decoders/Result.hs b/library/Hasql/Decoders/Result.hs similarity index 97% rename from library/Hasql/Private/Decoders/Result.hs rename to library/Hasql/Decoders/Result.hs index ba052d1..efac6bc 100644 --- a/library/Hasql/Private/Decoders/Result.hs +++ b/library/Hasql/Decoders/Result.hs @@ -1,14 +1,14 @@ -module Hasql.Private.Decoders.Result where +module Hasql.Decoders.Result where import qualified Data.Attoparsec.ByteString.Char8 as Attoparsec import qualified Data.ByteString as ByteString import qualified Data.Vector as Vector import qualified Data.Vector.Mutable as MutableVector import qualified Database.PostgreSQL.LibPQ as LibPQ -import qualified Hasql.Private.Decoders.Row as Row -import Hasql.Private.Errors -import Hasql.Private.Prelude hiding (many, maybe) -import qualified Hasql.Private.Prelude as Prelude +import qualified Hasql.Decoders.Row as Row +import Hasql.Errors +import Hasql.Prelude hiding (many, maybe) +import qualified Hasql.Prelude as Prelude newtype Result a = Result (ReaderT (Bool, LibPQ.Result) (ExceptT ResultError IO) a) diff --git a/library/Hasql/Private/Decoders/Results.hs b/library/Hasql/Decoders/Results.hs similarity index 92% rename from library/Hasql/Private/Decoders/Results.hs rename to library/Hasql/Decoders/Results.hs index f076c19..2fa2e86 100644 --- a/library/Hasql/Private/Decoders/Results.hs +++ b/library/Hasql/Decoders/Results.hs @@ -8,13 +8,13 @@ -- with the help of "Applicative" and "Monad", -- -- * Row-by-row fetching. -module Hasql.Private.Decoders.Results where +module Hasql.Decoders.Results where import qualified Database.PostgreSQL.LibPQ as LibPQ -import qualified Hasql.Private.Decoders.Result as Result -import Hasql.Private.Errors -import Hasql.Private.Prelude hiding (many, maybe) -import qualified Hasql.Private.Prelude as Prelude +import qualified Hasql.Decoders.Result as Result +import Hasql.Errors +import Hasql.Prelude hiding (many, maybe) +import qualified Hasql.Prelude as Prelude newtype Results a = Results (ReaderT (Bool, LibPQ.Connection) (ExceptT CommandError IO) a) diff --git a/library/Hasql/Private/Decoders/Row.hs b/library/Hasql/Decoders/Row.hs similarity index 92% rename from library/Hasql/Private/Decoders/Row.hs rename to library/Hasql/Decoders/Row.hs index 7130f8d..381918b 100644 --- a/library/Hasql/Private/Decoders/Row.hs +++ b/library/Hasql/Decoders/Row.hs @@ -1,9 +1,9 @@ -module Hasql.Private.Decoders.Row where +module Hasql.Decoders.Row where import qualified Database.PostgreSQL.LibPQ as LibPQ -import qualified Hasql.Private.Decoders.Value as Value -import Hasql.Private.Errors -import Hasql.Private.Prelude hiding (error) +import qualified Hasql.Decoders.Value as Value +import Hasql.Errors +import Hasql.Prelude hiding (error) import qualified PostgreSQL.Binary.Decoding as A newtype Row a diff --git a/library/Hasql/Private/Decoders/Value.hs b/library/Hasql/Decoders/Value.hs similarity index 87% rename from library/Hasql/Private/Decoders/Value.hs rename to library/Hasql/Decoders/Value.hs index cab7351..7913fb7 100644 --- a/library/Hasql/Private/Decoders/Value.hs +++ b/library/Hasql/Decoders/Value.hs @@ -1,6 +1,6 @@ -module Hasql.Private.Decoders.Value where +module Hasql.Decoders.Value where -import Hasql.Private.Prelude +import Hasql.Prelude import qualified PostgreSQL.Binary.Decoding as A newtype Value a diff --git a/library/Hasql/Encoders.hs b/library/Hasql/Encoders.hs index 03a790f..8e928c5 100644 --- a/library/Hasql/Encoders.hs +++ b/library/Hasql/Encoders.hs @@ -60,4 +60,4 @@ module Hasql.Encoders ) where -import Hasql.Private.Encoders +import Hasql.Encoders.All diff --git a/library/Hasql/Private/Encoders.hs b/library/Hasql/Encoders/All.hs similarity index 97% rename from library/Hasql/Private/Encoders.hs rename to library/Hasql/Encoders/All.hs index 52214da..8691e81 100644 --- a/library/Hasql/Private/Encoders.hs +++ b/library/Hasql/Encoders/All.hs @@ -1,15 +1,15 @@ -- | -- A DSL for declaration of query parameter encoders. -module Hasql.Private.Encoders where +module Hasql.Encoders.All where import qualified Data.Aeson as Aeson import qualified Data.ByteString.Lazy as LazyByteString -import qualified Hasql.Private.Encoders.Array as Array -import qualified Hasql.Private.Encoders.Params as Params -import qualified Hasql.Private.Encoders.Value as Value -import qualified Hasql.Private.PTI as PTI -import Hasql.Private.Prelude hiding (bool) -import qualified Hasql.Private.Prelude as Prelude +import qualified Hasql.Encoders.Array as Array +import qualified Hasql.Encoders.Params as Params +import qualified Hasql.Encoders.Value as Value +import qualified Hasql.PTI as PTI +import Hasql.Prelude hiding (bool) +import qualified Hasql.Prelude as Prelude import qualified Network.IP.Addr as NetworkIp import qualified PostgreSQL.Binary.Encoding as A import qualified Text.Builder as C diff --git a/library/Hasql/Private/Encoders/Array.hs b/library/Hasql/Encoders/Array.hs similarity index 93% rename from library/Hasql/Private/Encoders/Array.hs rename to library/Hasql/Encoders/Array.hs index 6201c85..e1d9435 100644 --- a/library/Hasql/Private/Encoders/Array.hs +++ b/library/Hasql/Encoders/Array.hs @@ -1,7 +1,7 @@ -module Hasql.Private.Encoders.Array where +module Hasql.Encoders.Array where -import qualified Hasql.Private.PTI as B -import Hasql.Private.Prelude +import qualified Hasql.PTI as B +import Hasql.Prelude import qualified PostgreSQL.Binary.Encoding as A import qualified Text.Builder as C diff --git a/library/Hasql/Private/Encoders/Params.hs b/library/Hasql/Encoders/Params.hs similarity index 83% rename from library/Hasql/Private/Encoders/Params.hs rename to library/Hasql/Encoders/Params.hs index e2228f2..63715cf 100644 --- a/library/Hasql/Private/Encoders/Params.hs +++ b/library/Hasql/Encoders/Params.hs @@ -1,9 +1,9 @@ -module Hasql.Private.Encoders.Params where +module Hasql.Encoders.Params where import qualified Database.PostgreSQL.LibPQ as A -import qualified Hasql.Private.Encoders.Value as C -import qualified Hasql.Private.PTI as D -import Hasql.Private.Prelude +import qualified Hasql.Encoders.Value as C +import qualified Hasql.PTI as D +import Hasql.Prelude import qualified PostgreSQL.Binary.Encoding as B import qualified Text.Builder as E diff --git a/library/Hasql/Private/Encoders/Value.hs b/library/Hasql/Encoders/Value.hs similarity index 87% rename from library/Hasql/Private/Encoders/Value.hs rename to library/Hasql/Encoders/Value.hs index cb09ac3..a08a8d0 100644 --- a/library/Hasql/Private/Encoders/Value.hs +++ b/library/Hasql/Encoders/Value.hs @@ -1,7 +1,7 @@ -module Hasql.Private.Encoders.Value where +module Hasql.Encoders.Value where -import qualified Hasql.Private.PTI as PTI -import Hasql.Private.Prelude +import qualified Hasql.PTI as PTI +import Hasql.Prelude import qualified PostgreSQL.Binary.Encoding as B import qualified Text.Builder as C diff --git a/library/Hasql/Private/Errors.hs b/library/Hasql/Errors.hs similarity index 98% rename from library/Hasql/Private/Errors.hs rename to library/Hasql/Errors.hs index 012b806..63bc9ec 100644 --- a/library/Hasql/Private/Errors.hs +++ b/library/Hasql/Errors.hs @@ -8,10 +8,10 @@ -- with the help of "Applicative" and "Monad", -- -- * Row-by-row fetching. -module Hasql.Private.Errors where +module Hasql.Errors where import qualified Data.ByteString.Char8 as BC -import Hasql.Private.Prelude +import Hasql.Prelude -- | -- An error during the execution of a query. diff --git a/library/Hasql/Private/IO.hs b/library/Hasql/IO.hs similarity index 93% rename from library/Hasql/Private/IO.hs rename to library/Hasql/IO.hs index 1e2d2db..47c4b3a 100644 --- a/library/Hasql/Private/IO.hs +++ b/library/Hasql/IO.hs @@ -1,15 +1,15 @@ -- | -- An API of low-level IO operations. -module Hasql.Private.IO where +module Hasql.IO where import qualified Database.PostgreSQL.LibPQ as LibPQ -import qualified Hasql.Private.Commands as Commands -import qualified Hasql.Private.Decoders.Result as ResultDecoders -import qualified Hasql.Private.Decoders.Results as ResultsDecoders -import qualified Hasql.Private.Encoders.Params as ParamsEncoders -import Hasql.Private.Errors -import Hasql.Private.Prelude -import qualified Hasql.Private.PreparedStatementRegistry as PreparedStatementRegistry +import qualified Hasql.Commands as Commands +import qualified Hasql.Decoders.Result as ResultDecoders +import qualified Hasql.Decoders.Results as ResultsDecoders +import qualified Hasql.Encoders.Params as ParamsEncoders +import Hasql.Errors +import Hasql.Prelude +import qualified Hasql.PreparedStatementRegistry as PreparedStatementRegistry {-# INLINE acquireConnection #-} acquireConnection :: ByteString -> IO LibPQ.Connection diff --git a/library/Hasql/Private/PTI.hs b/library/Hasql/PTI.hs similarity index 98% rename from library/Hasql/Private/PTI.hs rename to library/Hasql/PTI.hs index 3cc449b..648c1dd 100644 --- a/library/Hasql/Private/PTI.hs +++ b/library/Hasql/PTI.hs @@ -1,7 +1,7 @@ -module Hasql.Private.PTI where +module Hasql.PTI where import qualified Database.PostgreSQL.LibPQ as LibPQ -import Hasql.Private.Prelude hiding (bool) +import Hasql.Prelude hiding (bool) -- | A Postgresql type info data PTI = PTI {ptiOID :: !OID, ptiArrayOID :: !(Maybe OID)} diff --git a/library/Hasql/Private/Prelude.hs b/library/Hasql/Prelude.hs similarity index 99% rename from library/Hasql/Private/Prelude.hs rename to library/Hasql/Prelude.hs index 532144a..18ab4c3 100644 --- a/library/Hasql/Private/Prelude.hs +++ b/library/Hasql/Prelude.hs @@ -1,4 +1,4 @@ -module Hasql.Private.Prelude +module Hasql.Prelude ( module Exports, LazyByteString, ByteStringBuilder, diff --git a/library/Hasql/Private/PreparedStatementRegistry.hs b/library/Hasql/PreparedStatementRegistry.hs similarity index 93% rename from library/Hasql/Private/PreparedStatementRegistry.hs rename to library/Hasql/PreparedStatementRegistry.hs index 1617470..8b5b5f3 100644 --- a/library/Hasql/Private/PreparedStatementRegistry.hs +++ b/library/Hasql/PreparedStatementRegistry.hs @@ -1,4 +1,4 @@ -module Hasql.Private.PreparedStatementRegistry +module Hasql.PreparedStatementRegistry ( PreparedStatementRegistry, new, update, @@ -8,7 +8,7 @@ where import qualified ByteString.StrictBuilder as B import qualified Data.HashTable.IO as A -import Hasql.Private.Prelude hiding (lookup) +import Hasql.Prelude hiding (lookup) data PreparedStatementRegistry = PreparedStatementRegistry !(A.BasicHashTable LocalKey ByteString) !(IORef Word) diff --git a/library/Hasql/Session.hs b/library/Hasql/Session.hs index 9636d5c..6f3a370 100644 --- a/library/Hasql/Session.hs +++ b/library/Hasql/Session.hs @@ -7,9 +7,9 @@ module Hasql.Session run, -- * Errors - module Hasql.Private.Errors, + module Hasql.Errors, ) where -import Hasql.Private.Errors -import Hasql.Private.Session +import Hasql.Errors +import Hasql.Session.Core diff --git a/library/Hasql/Private/Session.hs b/library/Hasql/Session/Core.hs similarity index 82% rename from library/Hasql/Private/Session.hs rename to library/Hasql/Session/Core.hs index ea66a4b..09f1ffe 100644 --- a/library/Hasql/Private/Session.hs +++ b/library/Hasql/Session/Core.hs @@ -1,13 +1,13 @@ -module Hasql.Private.Session where +module Hasql.Session.Core where -import qualified Hasql.Private.Connection as Connection -import qualified Hasql.Private.Decoders.Result as Decoders.Result -import qualified Hasql.Private.Decoders.Results as Decoders.Results -import qualified Hasql.Private.Encoders as Encoders -import qualified Hasql.Private.Encoders.Params as Encoders.Params -import Hasql.Private.Errors -import qualified Hasql.Private.IO as IO -import Hasql.Private.Prelude +import qualified Hasql.Connection.Core as Connection +import qualified Hasql.Decoders.Result as Decoders.Result +import qualified Hasql.Decoders.Results as Decoders.Results +import qualified Hasql.Encoders.All as Encoders +import qualified Hasql.Encoders.Params as Encoders.Params +import Hasql.Errors +import qualified Hasql.IO as IO +import Hasql.Prelude import qualified Hasql.Statement as Statement -- | diff --git a/library/Hasql/Private/Settings.hs b/library/Hasql/Settings.hs similarity index 95% rename from library/Hasql/Private/Settings.hs rename to library/Hasql/Settings.hs index 6d08b43..8c286c9 100644 --- a/library/Hasql/Private/Settings.hs +++ b/library/Hasql/Settings.hs @@ -1,9 +1,9 @@ -module Hasql.Private.Settings where +module Hasql.Settings where import qualified Data.ByteString as B import qualified Data.ByteString.Builder as BB import qualified Data.ByteString.Lazy as BL -import Hasql.Private.Prelude +import Hasql.Prelude -- | -- All settings encoded in a single byte-string according to diff --git a/library/Hasql/Statement.hs b/library/Hasql/Statement.hs index e6f9c0f..fe3b8df 100644 --- a/library/Hasql/Statement.hs +++ b/library/Hasql/Statement.hs @@ -13,9 +13,9 @@ module Hasql.Statement where import qualified Hasql.Decoders as Decoders +import qualified Hasql.Decoders.All as Decoders import qualified Hasql.Encoders as Encoders -import qualified Hasql.Private.Decoders as Decoders -import Hasql.Private.Prelude +import Hasql.Prelude -- | -- Specification of a strictly single-statement query, which can be parameterized and prepared.