Update shelley-ma/impl/src/Cardano/Ledger/Allegra/Translation.hs

Co-authored-by: Thomas Winant <thomas@well-typed.com>
IntersectMBO · Oct 22, 2020 · 1da3d41 · 1da3d41
1 parent bbc8990
commit 1da3d41
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/shelley-ma/impl/src/Cardano/Ledger/Allegra/Translation.hs b/shelley-ma/impl/src/Cardano/Ledger/Allegra/Translation.hs
@@ -52,9 +52,7 @@ instance (ShelleyBased (AllegraEra c), Crypto c) => TranslateEra (AllegraEra c)
           nesBprev = translateEra' ctxt $ nesBprev nes,
           nesBcur = translateEra' ctxt $ nesBcur nes,
           nesEs = translateEra' ctxt $ LS.returnRedeemAddrsToReserves . nesEs $ nes,
-          nesRu = case nesRu nes of
-            SNothing -> SNothing
-            SJust rs -> SJust $ translateEra' ctxt rs,
+          nesRu = translateEra' ctxt <$> nesRu nes,
           nesPd = nesPd nes
         }