Merge pull request #375 from ambiata/topic/coding-standards

mismi-s3: Apply coding standards

Author: erikd-ambiata

mismi-s3/src/Mismi/S3/Data.hs

@@ -41,18 +41,22 @@ module Mismi.S3.Data (
   , sse
   ) where
 
-import           Control.Exception.Base
+import           Control.Exception (Exception)
 
 import qualified Data.Text as T
-import           Data.Typeable
+import           Data.Typeable (Typeable)
 
 import           P
 
 import           Mismi (Error, renderError)
                  -- Just for compatibility, would be good to not do
                  -- this at some point but for now we import everything
                  -- and keep current export list.
-import           Mismi.S3.Core.Data
+import           Mismi.S3.Core.Data (Address (..), Bucket (..), Key (..), ReadGrant (..)
+                                    , SyncMode (..), WriteMode (..), WriteResult (..), (//)
+                                    , addressFromText, addressToText, basename, combineKey
+                                    , dirname, foldSyncMode, foldWriteMode, removeCommonPrefix
+                                    , s3Parser, withKey)
 import           Network.AWS.S3 (ETag, ServerSideEncryption (..))
 
 import           System.FilePath (FilePath)

mismi-s3/src/Mismi/S3/Internal.hs

@@ -13,30 +13,30 @@ module Mismi.S3.Internal (
   , withFileSafe
   ) where
 
-import           Control.Concurrent
+import           Control.Concurrent (Chan, readChan, threadDelay, writeChan)
 
-import           Control.Monad.Catch
-import           Control.Monad.IO.Class
+import           Control.Monad.Catch (MonadCatch, onException)
+import           Control.Monad.IO.Class (MonadIO, liftIO)
 
-import           Data.Conduit
+import           Data.Conduit (Source, ($$))
 import qualified Data.Conduit.List as DC
 
 import qualified Data.Text as T
-import           Data.UUID
-import           Data.UUID.V4
+import           Data.UUID (toString)
+import           Data.UUID.V4 (nextRandom)
 
 import           P
 
 import           Mismi (AWS, rawRunAWS)
 import           Mismi.Amazonka (Env)
 import           Mismi.S3.Data
-import           Network.AWS.S3
+import           Network.AWS.S3 (BucketName (..), ObjectKey (..))
 
-import           System.Directory
-import           System.IO
-import           System.FilePath
+import           System.Directory (renameFile, removeFile)
+import           System.IO (IO)
+import           System.FilePath (FilePath, takeDirectory, takeFileName)
 
-import           Twine.Data
+import           Twine.Data (Queue, writeQueue)
 
 
 f' :: (BucketName -> ObjectKey -> a) -> Address -> a