Fixup warnings

cardano-foundation · Nov 30, 2020 · bdf473e · bdf473e
1 parent 1410fb6
commit bdf473e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 4 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs
@@ -237,7 +237,7 @@ import Ouroboros.Network.Protocol.ChainSync.Client
 import Ouroboros.Network.Protocol.ChainSync.ClientPipelined
     ( chainSyncClientPeerPipelined )
 import Ouroboros.Network.Protocol.Handshake.Version
-    ( Version (..), simpleSingletonVersions )
+    ( simpleSingletonVersions )
 import Ouroboros.Network.Protocol.LocalStateQuery.Client
     ( localStateQueryClientPeer )
 import Ouroboros.Network.Protocol.LocalStateQuery.Type
@@ -292,7 +292,7 @@ withNetworkLayer
     -> (NetworkLayer IO (IO Shelley) (CardanoBlock StandardCrypto) -> IO a)
         -- ^ Callback function with the network layer
     -> IO a
-withNetworkLayer tr np addrInfo versionData action = do
+withNetworkLayer tr np addrInfo (versionData, _) action = do
     -- NOTE: We keep client connections running for accessing the node tip,
     -- submitting transactions, querying parameters and delegations/rewards.
     --
@@ -968,10 +968,10 @@ connectClient
     :: Tracer IO NetworkLayerLog
     -> RetryHandlers
     -> NetworkClient IO
-    -> (NodeToClientVersionData, CodecCBORTerm Text NodeToClientVersionData)
+    -> NodeToClientVersionData
     -> FilePath
     -> IO ()
-connectClient tr handlers client (vData, vCodec) addr = withIOManager $ \iocp -> do
+connectClient tr handlers client vData addr = withIOManager $ \iocp -> do
     let versions = simpleSingletonVersions nodeToClientVersion vData client
     let tracers = NetworkConnectTracers
             { nctMuxTracer = nullTracer

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs
@@ -626,12 +626,20 @@ monitorStakePools tr gp nl DBLayer{..} =
                 handleErr (putPoolProduction header (getProducer blk))
                 garbageCollectPools slot latestGarbageCollectionEpochRef
                 putPoolCertificates slot certificates
+            BlockMary _ ->
+                error "TODO: unimplemented mary era"
+            BlockAllegra _ ->
+                error "TODO: unimplemented allegra era"
 
         forLastBlock = \case
             BlockByron blk ->
                 putHeader (toByronBlockHeader gp blk)
             BlockShelley blk ->
                 putHeader (toShelleyBlockHeader getGenesisBlockHash blk)
+            BlockMary _ ->
+                error "TODO: unimplemented mary era"
+            BlockAllegra _ ->
+                error "TODO: unimplemented allegra era"
 
         handleErr action = runExceptT action
             >>= \case