cleanup

Author: crocodile-dentist

dmq-node/app/Main.hs

@@ -126,7 +126,7 @@ runDMQ commandLineConfig = do
                      psRng
                      mkStakePoolMonitor $ \nodeKernel -> do
         dmqDiffusionConfiguration <-
-          mkDiffusionConfiguration dmqConfig nt (nodeKernel.stakePools.ledgerBigPeersVar)
+          mkDiffusionConfiguration dmqConfig nt nodeKernel.stakePools.ledgerBigPeersVar
 
         let sigSize :: Sig StandardCrypto -> SizeInBytes
             sigSize _ = 0 -- TODO
@@ -168,7 +168,7 @@ runDMQ commandLineConfig = do
                                  (if localHandshakeTracer
                                     then WithEventType "Handshake" >$< tracer
                                     else nullTracer)
-                                 $ maybe [] out <$> (tryReadTMVar $ nodeKernel.stakePools.ledgerPeersVar)
+                                 $ maybe [] out <$> tryReadTMVar nodeKernel.stakePools.ledgerPeersVar
               where
                 out :: LedgerPeerSnapshot AllLedgerPeers
                     -> [(PoolStake, NonEmpty LedgerRelayAccessPoint)]

dmq-node/src/DMQ/NodeToNode.hs

@@ -4,7 +4,6 @@
 {-# LANGUAGE OverloadedStrings   #-}
 {-# LANGUAGE RankNTypes          #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeOperators       #-}
 
 module DMQ.NodeToNode
   ( RemoteAddress
@@ -148,10 +147,6 @@ data Apps addr m a b =
 ntnApps
   :: forall crypto m addr idx.
     ( Crypto crypto
-    -- , DSIGN.ContextDSIGN (DSIGN crypto) ~ ()
-    -- , DSIGN.Signable (DSIGN crypto) (OCertSignable crypto)
-    -- , KES.ContextKES (KES crypto) ~ ()
-    -- , KES.Signable (KES crypto) BS.ByteString
     , Typeable crypto
     , Alternative (STM m)
     , MonadAsync m

dmq-node/src/DMQ/Protocol/SigSubmission/Type.hs

@@ -7,7 +7,6 @@
 {-# LANGUAGE ScopedTypeVariables  #-}
 {-# LANGUAGE StandaloneDeriving   #-}
 {-# LANGUAGE TypeFamilies         #-}
-{-# LANGUAGE TypeOperators        #-}
 {-# LANGUAGE UndecidableInstances #-}
 
 module DMQ.Protocol.SigSubmission.Type
@@ -32,7 +31,6 @@ module DMQ.Protocol.SigSubmission.Type
   ) where
 
 import Data.Aeson
-import Data.Bifunctor (first)
 import Data.ByteString (ByteString)
 import Data.ByteString.Base16 as BS.Base16
 import Data.ByteString.Base16.Lazy as LBS.Base16
@@ -42,12 +40,10 @@ import Data.Text.Encoding qualified as Text
 import Data.Time.Clock.POSIX (POSIXTime)
 import Data.Typeable
 
-import Cardano.Crypto.DSIGN.Class (ContextDSIGN, DSIGNAlgorithm, VerKeyDSIGN)
-import Cardano.Crypto.DSIGN.Class qualified as DSIGN
-import Cardano.Crypto.KES.Class (KESAlgorithm (..), Signable)
+import Cardano.Crypto.DSIGN.Class (DSIGNAlgorithm, VerKeyDSIGN)
+import Cardano.Crypto.KES.Class (KESAlgorithm (..))
 import Cardano.KESAgent.KES.Crypto as KES
-import Cardano.KESAgent.KES.OCert (KESPeriod (..), OCert (..), OCertSignable,
-           validateOCert)
+import Cardano.KESAgent.KES.OCert (KESPeriod (..), OCert (..))
 
 import Ouroboros.Network.Protocol.TxSubmission2.Type as SigSubmission hiding
            (TxSubmission2)