Address review comment

Concordium · Nov 15, 2023 · 9f111f5 · 9f111f5
1 parent 5fb494b
commit 9f111f5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/concordium-base b/concordium-base
diff --git a/concordium-consensus/src/Concordium/ProtocolUpdate/P7.hs b/concordium-consensus/src/Concordium/ProtocolUpdate/P7.hs
@@ -36,9 +36,9 @@ updates = HM.fromList [(Reboot.updateHash, return Reboot)]
 checkUpdate :: ProtocolUpdate -> Either String Update
 checkUpdate ProtocolUpdate{..} = case HM.lookup puSpecificationHash updates of
     Nothing -> Left "Specification hash does not correspond to a known protocol update."
-    Just g -> case runGet g puSpecificationAuxiliaryData of
+    Just updateGet -> case runGet updateGet puSpecificationAuxiliaryData of
         Left err -> Left $! "Could not deserialize auxiliary data: " ++ err
-        Right r -> return r
+        Right update -> return update
 
 -- | Construct the genesis data for a P7 update.
 updateRegenesis ::
+10 −3		haskell-src/Concordium/Constants.hs
+27 −8		haskell-src/Concordium/Types/ProtocolVersion.hs