Moved to Driver directory

postgres-wire.cabal

@@ -15,11 +15,11 @@ cabal-version:       >=1.10
 
 library
   hs-source-dirs:      src
-  exposed-modules:     Database.PostgreSQL.Protocol
+  exposed-modules:     Database.PostgreSQL.Driver
-                     , Database.PostgreSQL.Connection
+                     , Database.PostgreSQL.Driver.Connection
-                     , Database.PostgreSQL.Settings
+                     , Database.PostgreSQL.Driver.Settings
-                     , Database.PostgreSQL.StatementStorage
+                     , Database.PostgreSQL.Driver.StatementStorage
-                     , Database.PostgreSQL.Types
+                     , Database.PostgreSQL.Driver.Types
 
                      , Database.PostgreSQL.Protocol.Types
                      , Database.PostgreSQL.Protocol.Encoders
@@ -42,6 +42,7 @@ library
   default-language:    Haskell2010
   default-extensions:  
     OverloadedStrings
+    OverloadedLists
     GeneralizedNewtypeDeriving
 
 test-suite postgres-wire-test

src/Database/PostgreSQL/Driver.hs

@@ -0,0 +1,2 @@
+module Database.PostgreSQL.Driver where
+

src/Database/PostgreSQL/Driver/Connection.hs

@@ -1,11 +1,4 @@
-{-# language OverloadedLists #-}
+module Database.PostgreSQL.Driver.Connection where
-{-# language OverloadedStrings #-}
-{-# language GADTs #-}
-{-# language ApplicativeDo #-}
-{-# language ExistentialQuantification #-}
-{-# language TypeSynonymInstances #-}
-{-# language FlexibleInstances #-}
-module Database.PostgreSQL.Connection where
 
 
 import qualified Data.ByteString as B
@@ -34,13 +27,11 @@ import Crypto.Hash (hash, Digest, MD5)
 import Database.PostgreSQL.Protocol.Encoders
 import Database.PostgreSQL.Protocol.Decoders
 import Database.PostgreSQL.Protocol.Types
-import Database.PostgreSQL.Settings
+import Database.PostgreSQL.Driver.Settings
-import Database.PostgreSQL.StatementStorage
+import Database.PostgreSQL.Driver.StatementStorage
-import Database.PostgreSQL.Types
+import Database.PostgreSQL.Driver.Types
 
 
-type UnixSocket = Socket Unix Stream Unix
--- data Connection = Connection (Socket Inet6 Stream TCP)
 data Connection = Connection
     { connRawConnection      :: RawConnection
     , connReceiverThread     :: ThreadId

src/Database/PostgreSQL/Driver/Settings.hs

@@ -1,6 +1,6 @@
 {-# language OverloadedStrings #-}
 
-module Database.PostgreSQL.Settings where
+module Database.PostgreSQL.Driver.Settings where
 
 import Data.Word (Word16)
 import Data.ByteString (ByteString)

src/Database/PostgreSQL/Driver/StatementStorage.hs

@@ -1,4 +1,4 @@
-module Database.PostgreSQL.StatementStorage where
+module Database.PostgreSQL.Driver.StatementStorage where
 
 import qualified Data.HashTable.IO as H
 import qualified Data.ByteString as B

src/Database/PostgreSQL/Driver/Types.hs

@@ -1,7 +1,7 @@
 {-
   * We dont store parameters of connection that may change after startup
 -}
-module Database.PostgreSQL.Types where
+module Database.PostgreSQL.Driver.Types where
 
 import Data.ByteString (ByteString)
 

src/Database/PostgreSQL/Protocol.hs

@@ -1,2 +0,0 @@
-module Database.PostgreSQL.Protocol where
-