Bryan O'Sullivan avatar Bryan O'Sullivan committed 90f104c

Tidy up imports.

Comments (0)

Files changed (4)


     , mapReduce
     ) where
-import Network.Riak.Connection
-import Network.Riak.Types
 import Network.Riak.Basic hiding (get, put, put_)
 import Network.Riak.JSON.Resolvable (get, getMany, put, putMany)


 {-# LANGUAGE CPP, OverloadedStrings, RecordWildCards, ScopedTypeVariables #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 -- |
 -- Module:      Network.Riak.Connection.Internal
     , recvResponse_
     ) where
-import Control.Concurrent
+import Control.Concurrent (forkIO)
+import Control.Concurrent.Chan (newChan, readChan, writeChan)
+import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar)
 import Control.Exception (Exception, IOException, throw)
 import Control.Monad (forM_, replicateM, replicateM_)
 import Data.Binary.Put (Put, putWord32be, runPut)


     , showM
     ) where
+import Control.Concurrent.MVar (MVar, modifyMVar_, newMVar, withMVar)
 import Control.Exception hiding (handle)
-import Control.Concurrent.MVar (MVar, modifyMVar_, newMVar, withMVar)
 import Network.Riak.Types.Internal
 import System.Environment (getEnv)
 import System.IO (Handle, hPutStrLn, stderr)


     ) where
 import Control.Applicative ((<$>))
-import Network.Riak.Protocol.PingRequest
-import qualified Network.Riak.Protocol.DeleteRequest as Del
+import Network.Riak.Protocol.BucketProps
+import Network.Riak.Protocol.Content
 import Network.Riak.Protocol.GetClientIDRequest
 import Network.Riak.Protocol.GetServerInfoRequest
 import Network.Riak.Protocol.ListBucketsRequest
+import Network.Riak.Protocol.MapReduceRequest
+import Network.Riak.Protocol.PingRequest
+import Network.Riak.Types.Internal hiding (MessageTag(..))
+import qualified Network.Riak.Protocol.DeleteRequest as Del
+import qualified Network.Riak.Protocol.GetBucketRequest as GetBucket
+import qualified Network.Riak.Protocol.GetRequest as Get
 import qualified Network.Riak.Protocol.ListKeysRequest as Keys
 import qualified Network.Riak.Protocol.PutRequest as Put
-import Network.Riak.Protocol.Content
-import qualified Network.Riak.Protocol.GetRequest as Get
-import qualified Network.Riak.Protocol.GetBucketRequest as GetBucket
 import qualified Network.Riak.Protocol.SetBucketRequest as SetBucket
-import Network.Riak.Protocol.MapReduceRequest
-import Network.Riak.Protocol.BucketProps
-import Network.Riak.Types.Internal hiding (MessageTag(..))
 ping :: PingRequest
 ping = PingRequest
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.