diff --git a/cardano-api/internal/Cardano/Api/ProtocolParameters.hs b/cardano-api/internal/Cardano/Api/ProtocolParameters.hs
index 264d231c3f..9b9931ac2c 100644
--- 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
new file mode 100755
index 0000000000..23c5ceed30
--- /dev/null
+++ 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