Fix test compilation.

Concordium · Jun 13, 2022 · 91afb8f · 91afb8f
1 parent 911bc3a
commit 91afb8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/concordium-consensus/tests/globalstate/GlobalStateTests/Accounts.hs b/concordium-consensus/tests/globalstate/GlobalStateTests/Accounts.hs
@@ -241,7 +241,7 @@ runAccountAction (RegIdExists rid) (ba, pa) = do
   checkBinary (==) be pe "<->" "regid exists in basic" "regid exists in persistent"
   return (ba, pa')
 runAccountAction (RecordRegId rid ai) (ba, pa) = do
-  let ba' = B.recordRegId (ID.toRawCredId rid) ai ba
+  let ba' = B.recordRegId (ID.toRawCredRegId rid) ai ba
   pa' <- P.recordRegId rid ai pa
   return (ba', pa')