Styling

Author: sevanspowell

metadata-sync/src/Cardano/Metadata/Sync.hs

@@ -3,20 +3,31 @@
 module Cardano.Metadata.Sync where
 
 import qualified Data.Aeson as Aeson
-import Data.Text (Text)
+import Data.Functor
+    ( void )
+import Data.String
+    ( fromString )
+import Data.Text
+    ( Text )
 import qualified Data.Text as T
+import Data.Traversable
+    ( forM )
+import Database.PostgreSQL.Simple
+    ( Connection, execute, executeMany, withTransaction )
+import Database.PostgreSQL.Simple.Types
+    ( Identifier (..), In (..), Only (..) )
+import System.Directory
+    ( listDirectory )
+import System.FilePath.Posix
+    ( takeBaseName )
+import System.IO.Temp
+    ( withSystemTempDirectory )
 import qualified Turtle.Prelude as Turtle
-import System.Directory (listDirectory)
-import System.FilePath.Posix (takeBaseName)
-import Data.String (fromString)
-import System.IO.Temp (withSystemTempDirectory)
-import Database.PostgreSQL.Simple (withTransaction, execute, executeMany, Connection)
-import Database.PostgreSQL.Simple.Types (Identifier(..), Only(..), In(..))
-import Data.Traversable (forM)
-import Data.Functor (void)
-
-import Cardano.Metadata.Sync.Config (withConnectionFromPool)
-import Cardano.Metadata.Types.Common (Subject(..))
+
+import Cardano.Metadata.Sync.Config
+    ( withConnectionFromPool )
+import Cardano.Metadata.Types.Common
+    ( Subject (..) )
 
 -- | View the current state of the registry (source-of-truth).
 view :: Text -> Text -> IO [(Subject, Aeson.Value)]

metadata-sync/src/Cardano/Metadata/Sync/Config.hs

@@ -2,19 +2,38 @@
 
 module Cardano.Metadata.Sync.Config where
 
-import Data.Text (Text)
+import Control.Exception
+    ( bracket )
+import qualified Data.ByteString.Char8 as BC
+import Data.Pool
+    ( Pool, createPool, destroyAllResources )
+import qualified Data.Pool as Pool
+import Data.Text
+    ( Text )
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as TE
-import Options.Applicative (Parser, ParserInfo)
-import qualified Options.Applicative as Opt
-import Options.Applicative (strOption, long, metavar, help, showDefault, value, option, auto, info, fullDesc, progDesc, header)
-import Data.Pool (Pool, createPool, destroyAllResources)
-import Database.PostgreSQL.Simple (Connection)
-import Data.Time.Clock (NominalDiffTime)
+import Data.Time.Clock
+    ( NominalDiffTime )
+import Database.PostgreSQL.Simple
+    ( Connection )
 import qualified Database.PostgreSQL.Simple as Sql
-import qualified Data.Pool as Pool
-import qualified Data.ByteString.Char8 as BC
-import Control.Exception (bracket)
+import Options.Applicative
+    ( Parser, ParserInfo )
+import Options.Applicative
+    ( auto
+    , fullDesc
+    , header
+    , help
+    , info
+    , long
+    , metavar
+    , option
+    , progDesc
+    , showDefault
+    , strOption
+    , value
+    )
+import qualified Options.Applicative as Opt
 
 data Opts = Opts
     { optDbName              :: Text

metadata-sync/src/Main.hs

@@ -1,19 +1,29 @@
 module Main where
 
+import Control.Exception
+    ( bracket )
 import Control.Monad.IO.Class
     ( liftIO )
 import qualified Data.ByteString.Char8 as BC
+import Data.Pool
+    ( Pool, createPool, destroyAllResources )
 import qualified Data.Text as T
+import Data.Time.Clock
+    ( NominalDiffTime )
+import Database.PostgreSQL.Simple
+    ( Connection, close, connectPostgreSQL )
 import qualified Network.Wai.Handler.Warp as Warp
 import qualified Options.Applicative as Opt
-import Control.Exception (bracket)
-import Database.PostgreSQL.Simple (Connection, connectPostgreSQL, close)
-import Data.Pool (Pool, createPool, destroyAllResources)
-import Data.Time.Clock (NominalDiffTime)
 
 import qualified Cardano.Metadata.Sync as Sync
 import Cardano.Metadata.Sync.Config
-    ( Opts (..), pgConnectionString, parseOpts, withConnectionPool, withConnectionFromPool, opts)
+    ( Opts (..)
+    , opts
+    , parseOpts
+    , pgConnectionString
+    , withConnectionFromPool
+    , withConnectionPool
+    )
 
 main :: IO ()
 main = do

metadata-sync/test/Main.hs

@@ -3,10 +3,18 @@
 {-# LANGUAGE TupleSections #-}
 {-# LANGUAGE TypeApplications #-}
 
+import Control.Exception
+    ( SomeException, catch )
+import Control.Monad
+    ( join, void )
 import Control.Monad.IO.Class
     ( liftIO )
 import Control.Monad.Logger
     ( runNoLoggingT )
+import qualified Data.Aeson as Aeson
+import qualified Data.HashMap.Strict as HM
+import Data.Pool
+    ( Pool, destroyAllResources )
 import Data.Proxy
     ( Proxy (Proxy) )
 import Data.Tagged
@@ -15,11 +23,14 @@ import Data.Text
     ( Text )
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as TE
-import qualified Data.Aeson as Aeson
 import Data.Word
     ( Word8 )
-import Data.Pool (Pool, destroyAllResources)
-import Control.Monad (join, void)
+import Hedgehog
+    ( MonadGen, evalIO, forAll, property, (===) )
+import qualified Hedgehog as H
+    ( Property )
+import qualified Hedgehog.Gen as Gen
+import qualified Hedgehog.Range as Range
 import Test.Tasty
     ( TestTree
     , askOption
@@ -29,28 +40,25 @@ import Test.Tasty
     , testGroup
     , withResource
     )
-import Test.Tasty.Options
-import Hedgehog
-    ( evalIO, forAll, property, (===), MonadGen )
-import qualified Hedgehog as H
-    ( Property )
-import Control.Exception (catch, SomeException)
-import qualified Hedgehog.Gen as Gen
-import qualified Data.HashMap.Strict as HM
-import qualified Hedgehog.Range as Range
 import Test.Tasty
 import Test.Tasty.Hedgehog
+import Test.Tasty.Options
 
 import Cardano.Metadata.Store.Types
-import Cardano.Metadata.Types.Common (Subject(..), unPropertyName)
-import Cardano.Metadata.Sync.Config (mkConnectionPool, withConnectionFromPool)
-import Cardano.Metadata.Sync (write)
+import Cardano.Metadata.Sync
+    ( write )
+import Cardano.Metadata.Sync.Config
+    ( mkConnectionPool, withConnectionFromPool )
+import Cardano.Metadata.Types.Common
+    ( Subject (..), unPropertyName )
+import Database.PostgreSQL.Simple
+    ( Connection, execute, executeMany, query, withTransaction )
+import Database.PostgreSQL.Simple.Types
+    ( Identifier (..), Only (..) )
 import Test.Cardano.Metadata.Generators
     ( ComplexType )
 import qualified Test.Cardano.Metadata.Generators as Gen
 import Test.Cardano.Metadata.Store
-import Database.PostgreSQL.Simple (query, withTransaction, execute, executeMany, Connection)
-import Database.PostgreSQL.Simple.Types (Only(..), Identifier(..))
 
 newtype DbHost = DbHost { _dbHost :: Text }
 newtype DbName = DbName { _dbName :: Text }