Hide Internal module

Database/MongoDB/Query.hs

@@ -42,7 +42,8 @@ module Database.MongoDB.Query (
     MRResult, mapReduce, runMR, runMR',
     -- * Command
     Command, runCommand, runCommand1,
-    eval, retrieveServerData, updateMany, updateAll, UpdateResult
+    eval, retrieveServerData, updateMany, updateAll, UpdateResult,
+    UpdateOption(..)
 ) where
 
 import Prelude hiding (lookup)

mongoDB.cabal

@@ -50,11 +50,11 @@ Library
   Exposed-modules:  Database.MongoDB
                     Database.MongoDB.Admin
                     Database.MongoDB.Connection
-                    Database.MongoDB.Internal.Protocol
-                    Database.MongoDB.Internal.Util
                     Database.MongoDB.Query
                     Database.MongoDB.Transport
                     Database.MongoDB.Transport.Tls
+  Other-modules:    Database.MongoDB.Internal.Protocol
+                    Database.MongoDB.Internal.Util
 
 Source-repository head
     Type:     git

test/QuerySpec.hs

@@ -6,7 +6,6 @@ import Data.String (IsString(..))
 import TestImport
 import Control.Exception
 import Control.Monad (forM_)
-import Database.MongoDB.Internal.Protocol (UpdateOption(..))
 import qualified Data.List as L
 
 import qualified Data.Text as T