beauty salon

cardano-foundation · Aug 18, 2021 · c9d0f28 · c9d0f28
1 parent 3f9513b
commit c9d0f28
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 7 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api.hs b/lib/core/src/Cardano/Wallet/Api.hs
@@ -11,6 +11,8 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeOperators #-}
 
+{- HLINT ignore "Use newtype instead of data" -}
+
 module Cardano.Wallet.Api
     ( -- * API
       Api

diff --git a/lib/core/src/Cardano/Wallet/Api/Server.hs b/lib/core/src/Cardano/Wallet/Api/Server.hs
@@ -180,8 +180,8 @@ import Cardano.Wallet.Api
     , WalletLock (..)
     , dbFactory
     , tokenMetadataClient
-    , workerRegistry
     , walletLocks
+    , workerRegistry
     )
 import Cardano.Wallet.Api.Server.Tls
     ( TlsConfiguration (..), requireClientAuth )

diff --git a/lib/core/src/Control/Concurrent/Concierge.hs b/lib/core/src/Control/Concurrent/Concierge.hs
@@ -1,5 +1,8 @@
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE RankNTypes #-}
+
+{- HLINT ignore "Use newtype instead of data" -}
+
 -- |
 -- Copyright: © 2021 IOHK
 -- License: Apache-2.0

diff --git a/lib/core/test/unit/Control/Concurrent/ConciergeSpec.hs b/lib/core/test/unit/Control/Concurrent/ConciergeSpec.hs
@@ -22,9 +22,7 @@ import Control.Monad.Trans.Except
 import Test.Hspec
     ( Spec, describe, it, parallel )
 import Test.QuickCheck
-    ( Property
-    , (===)
-    )
+    ( Property, (===) )
 
 spec :: Spec
 spec = do
@@ -55,7 +53,7 @@ unit_atomic =
 
     test :: (forall a. IOSim s a -> IOSim s a) -> IOSim s ()
     test atomically = do
-        _ <- forkIO $ atomically $ (delay 1 >> action "B")
+        _ <- forkIO $ atomically (delay 1 >> action "B")
         atomically $ action "A"
         delay 4
 
@@ -68,14 +66,14 @@ unit_atomic =
 -- | Check that using 'throwE' in the 'ExceptE' monad releases the lock
 unit_exceptT_release_lock :: Property
 unit_exceptT_release_lock =
-    ["A"] === (selectTraceEventsSay $ runSimTrace $ runExceptT test)
+    ["A"] === selectTraceEventsSay (runSimTrace $ runExceptT test)
   where
     liftE :: IOSim s a -> ExceptT String (IOSim s) a
     liftE = lift
 
     test :: ExceptT String (IOSim s) ()
     test = do
-        concierge <- liftE $ newConcierge
+        concierge <- liftE newConcierge
         let atomically = atomicallyWithLifted liftE concierge ()
         _ <- tryE $ atomically $ throwE "X"
         atomically $ liftE $ say "A"