Use Maybe instead of StrictMaybe in pInvalidHereafter

Author: geo2a

cardano-cli/src/Cardano/CLI/EraBased/Common/Option.hs

@@ -2263,14 +2263,14 @@ pInvalidHereafter
 pInvalidHereafter eon =
   fmap (TxValidityUpperBound $ convert eon) $
     asum
-      [ fmap (L.SJust . SlotNo) $
+      [ fmap (Just . SlotNo) $
           Opt.option (bounded "SLOT") $
             mconcat
               [ Opt.long "invalid-hereafter"
               , Opt.metavar "SLOT"
               , Opt.help "Time that transaction is valid until (in slots)."
               ]
-      , fmap (L.SJust . SlotNo) $
+      , fmap (Just . SlotNo) $
           Opt.option (bounded "SLOT") $
             mconcat
               [ Opt.long "upper-bound"
@@ -2282,15 +2282,15 @@ pInvalidHereafter eon =
                     ]
               , Opt.internal
               ]
-      , fmap (L.SJust . SlotNo) $
+      , fmap (Just . SlotNo) $
           Opt.option (bounded "SLOT") $
             mconcat
               [ Opt.long "ttl"
               , Opt.metavar "SLOT"
               , Opt.help "Time to live (in slots) (deprecated; use --invalid-hereafter instead)."
               , Opt.internal
               ]
-      , pure L.SNothing
+      , pure Nothing
       ]
 
 pTxFee :: Parser Lovelace

cardano-cli/src/Cardano/CLI/EraBased/Transaction/Run.hs

@@ -87,7 +87,6 @@ import Data.Data ((:~:) (..))
 import Data.Foldable qualified as Foldable
 import Data.List qualified as List
 import Data.Map.Strict qualified as Map
-import Data.Maybe.Strict (strictMaybe)
 import Data.Set qualified as Set
 import Data.Text qualified as Text
 import Data.Text.IO qualified as Text
@@ -926,7 +925,7 @@ constructTxBodyContent
             & maybe id Exp.setTxTotalCollateral txTotCollateral
             & Exp.setTxFee fee
             & maybe id Exp.setTxValidityLowerBound mLowerBound
-            & strictMaybe id Exp.setTxValidityUpperBound mUpperBound
+            & maybe id Exp.setTxValidityUpperBound mUpperBound
             & Exp.setTxMetadata expTxMetadata
             & Exp.setTxAuxScripts auxScripts
             & Exp.setTxWithdrawals validatedWithdrawals