Fixup

IntersectMBO · Oct 26, 2023 · 31f0f31 · 31f0f31
1 parent aaa0046
commit 31f0f31
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/ProtocolParameters.hs b/cardano-api/internal/Cardano/Api/ProtocolParameters.hs
@@ -1500,8 +1500,8 @@ fromBabbagePParamsUpdate :: Ledger.Crypto crypto
                          -> ProtocolParametersUpdate
 fromBabbagePParamsUpdate ppu =
   (fromBabbageCommonPParamsUpdate ppu) {
-    protocolUpdateProtocolVersion    = (\(Ledger.ProtVer a b) -> (Ledger.getVersion a,b)) <$>
-                                       strictMaybeToMaybe (ppu ^. ppuProtocolVersionL)
+      protocolUpdateProtocolVersion    = (\(Ledger.ProtVer a b) -> (Ledger.getVersion a,b)) <$>
+                                           strictMaybeToMaybe (ppu ^. ppuProtocolVersionL)
     }
 
 fromConwayPParamsUpdate :: BabbageEraPParams ledgerera

diff --git a/s b/s
@@ -0,0 +1,11 @@
+#!/run/current-system/sw/bin/bash  
+for x in $(git ls-tree --full-tree --name-only -r HEAD cardano-api
+  ); do
+    if [ "${x##*.}" == "hs" ]; then
+      if grep -qE '^#' $x; then
+        echo "$x contains CPP.  Skipping."
+      else
+        stylish-haskell -i $x
+      fi
+    fi
+  done