[wip] comment-out redundant patterns

Author: geo2a

cardano-api/src/Cardano/Api/Tx/Internal/Output.hs

@@ -814,12 +814,13 @@ toShelleyTxOut sbe = shelleyBasedEraConstraints sbe $ \case
                 .~ toBabbageTxOutDatumUTxO txoutdata
               & L.referenceScriptTxOutL
                 .~ refScriptToShelleyScript sbe refScript
-          AlonzoEraOnwardsDijkstra ->
-            L.mkBasicTxOut (toShelleyAddr addr) value
-              & L.datumTxOutL
-                .~ toBabbageTxOutDatumUTxO txoutdata
-              & L.referenceScriptTxOutL
-                .~ refScriptToShelleyScript sbe refScript
+          -- TODO: this pattern shows up as redundant
+          -- AlonzoEraOnwardsDijkstra ->
+          --   L.mkBasicTxOut (toShelleyAddr addr) value
+          --     & L.datumTxOutL
+          --       .~ toBabbageTxOutDatumUTxO txoutdata
+          --     & L.referenceScriptTxOutL
+          --       .~ refScriptToShelleyScript sbe refScript
       )
       sbe
 
@@ -854,12 +855,13 @@ toShelleyTxOutAny sbe = shelleyBasedEraConstraints sbe $ \case
                 .~ toBabbageTxOutDatum txoutdata
               & L.referenceScriptTxOutL
                 .~ refScriptToShelleyScript sbe refScript
-          AlonzoEraOnwardsDijkstra ->
-            L.mkBasicTxOut (toShelleyAddr addr) value
-              & L.datumTxOutL
-                .~ toBabbageTxOutDatum txoutdata
-              & L.referenceScriptTxOutL
-                .~ refScriptToShelleyScript sbe refScript
+          -- TODO: this pattern shows up as redundant
+          -- AlonzoEraOnwardsDijkstra ->
+          --   L.mkBasicTxOut (toShelleyAddr addr) value
+          --     & L.datumTxOutL
+          --       .~ toBabbageTxOutDatum txoutdata
+          --     & L.referenceScriptTxOutL
+          --       .~ refScriptToShelleyScript sbe refScript
       )
       sbe
 
@@ -922,23 +924,24 @@ fromShelleyTxOut sbe ledgerTxOut = shelleyBasedEraConstraints sbe $ do
      where
       datum = ledgerTxOut ^. L.datumTxOutL
       mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
-    ShelleyBasedEraDijkstra ->
-      TxOut
-        addressInEra
-        txOutValue
-        ( fromBabbageTxOutDatum
-            AlonzoEraOnwardsDijkstra
-            BabbageEraOnwardsDijkstra
-            datum
-        )
-        ( case mRefScript of
-            SNothing -> ReferenceScriptNone
-            SJust refScript ->
-              fromShelleyScriptToReferenceScript ShelleyBasedEraDijkstra refScript
-        )
-     where
-      datum = ledgerTxOut ^. L.datumTxOutL
-      mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
+    -- TODO: this pattern shows up as redundant
+    -- ShelleyBasedEraDijkstra ->
+    --   TxOut
+    --     addressInEra
+    --     txOutValue
+    --     ( fromBabbageTxOutDatum
+    --         AlonzoEraOnwardsDijkstra
+    --         BabbageEraOnwardsDijkstra
+    --         datum
+    --     )
+    --     ( case mRefScript of
+    --         SNothing -> ReferenceScriptNone
+    --         SJust refScript ->
+    --           fromShelleyScriptToReferenceScript ShelleyBasedEraDijkstra refScript
+    --     )
+    --  where
+    --   datum = ledgerTxOut ^. L.datumTxOutL
+    --   mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
 
 -- ----------------------------------------------------------------------------
 -- Transaction output values (era-dependent)