Backport cardano node fix

flake.nix

@@ -76,7 +76,8 @@
 
     # Plutip server related inputs
     plutip = {
-      url = "github:mlabs-haskell/plutip/1bf0b547cd3689c727586abb8385c008fb2a3d1c";
+      url = "github:mlabs-haskell/plutip?ref=gergely/version-bump";
+      # TODO(bladyjoker): Why are we overriding inputs here?
       inputs = {
         nixpkgs.follows = "nixpkgs";
         iohk-nix.follows = "iohk-nix";
@@ -324,8 +325,8 @@
         # it (i.e. `nix develop`)
         default = (psProjectFor (nixpkgsFor system)).devShell;
 
-        # This can be used with `nix develop .#hsDevShell
-        hsDevShell = self.hsFlake.${system}.devShell;
+        # This can be used with `nix develop .#devPlutipServer` to work with `./plutip-server`
+        devPlutipServer = ((plutipServerFor system).flake { }).devShell;
       });
 
       packages = perSystem (system:

nix/runtime.nix

@@ -15,9 +15,6 @@ rec {
     # to change the values after calling `buildCtlRuntime`
     node = {
       port = 3001;
-      # the version of the node to use, corresponds to the image version tag,
-      # i.e. `"inputoutput/cardano-node:${tag}"`
-      tag = "1.35.4";
     };
     ogmios = { port = 1337; };
     postgres = {
@@ -98,10 +95,15 @@ rec {
       nodeSocketPath = "/ipc/node.socket";
       bindPort = port: "${toString port}:${toString port}";
       defaultServices = with config; {
-        # TODO make this use `cardano-node` from flake inputs
         cardano-node = {
+          image.contents = [
+            # Note: Required, fixes issue with "Failed to start all.. subscriptions".
+            #   Creates the /etc/services file.
+            pkgs.iana-etc
+            pkgs.coreutils
+          ];
           service = {
-            image = "inputoutput/cardano-node:${node.tag}";
+            useHostStore = true;
             ports = [ (bindPort node.port) ];
             volumes = [
               "${config.cardano-configurations}/network/${config.network.name}/cardano-node:/config"
@@ -110,49 +112,42 @@ rec {
               "${nodeIpcVol}:/ipc"
             ];
             command = [
-              "run"
-              "--config"
-              "/config/config.json"
-              "--database-path"
-              "/data/db"
-              "--socket-path"
-              "${nodeSocketPath}"
-              "--topology"
-              "/config/topology.json"
+              "${pkgs.bash}/bin/sh"
+              "-c"
+              ''
+                ${inputs.cardano-node.packages."${pkgs.system}".cardano-node}/bin/cardano-node run \
+                  --config /config/config.json \
+                  --database-path /data/db \
+                  --socket-path "${nodeSocketPath}" \
+                  --topology /config/topology.json
+              ''
             ];
           };
         };
-        # TODO make this use `kupo` from flake inputs
         kupo = {
           service = {
-            image = "cardanosolutions/kupo:${kupo.tag}";
+            useHostStore = true;
             ports = [ (bindPort kupo.port) ];
             volumes = [
               "${config.cardano-configurations}/network/${config.network.name}:/config"
               "${nodeIpcVol}:/ipc"
               "${kupoDbVol}:/kupo-db"
             ];
             command = [
-              "--node-config"
-              "/config/cardano-node/config.json"
-              "--node-socket"
-              "${nodeSocketPath}"
-              "--since"
-              "${kupo.since}"
-              "--match"
-              "${"${kupo.match}"}"
-              "--host"
-              "0.0.0.0"
-              "--workdir"
-              "kupo-db"
-            ] ++ (
-              pkgs.lib.lists.optional kupo.pruneUtxo "--prune-utxo"
-            ) ++ (
-              pkgs.lib.lists.optional kupo.deferDbIndexes "--defer-db-indexes"
-            );
+              "${pkgs.bash}/bin/sh"
+              "-c"
+              ''
+                ${inputs.kupo-nixos.packages.${pkgs.system}.kupo}/bin/kupo \
+                  --node-config /config/cardano-node/config.json \
+                  --node-socket "${nodeSocketPath}" \
+                  --since "${kupo.since}" \
+                  --match "${kupo.match}" \
+                  --host "0.0.0.0" \
+                  --workdir kupo-db ${pkgs.lib.strings.optionalString kupo.pruneUtxo "--prune-utxo"} ${pkgs.lib.strings.optionalString kupo.deferDbIndexes "--defer-db-indexes"}
+              ''
+            ];
           };
         };
-        # TODO make this use `ogmios` from flake inputs
         ogmios = {
           service = {
             useHostStore = true;

plutip-server/cabal.project

@@ -12,10 +12,6 @@ repository cardano-haskell-packages
 -- Align index-states with cardano-wallet
 index-state: 2023-06-06T00:00:00Z
 
-index-state:
-  , hackage.haskell.org 2023-06-06T00:00:00Z
-  , cardano-haskell-packages 2023-06-05T06:39:32Z
-
 packages: ./.
 
 tests: true
@@ -111,9 +107,8 @@ source-repository-package
     --sha256: 04q58c82wy6x9nkwqbvcxbv6s61fx08h5kf62sb511aqp08id4bb
     subdir: generated
 
-
 source-repository-package
     type: git
     location: https://github.com/mlabs-haskell/plutip.git
-    tag: d060231ebf20383cbdc854a4664fd66a5815aedc
-    --sha256: 0yydxf1f0mdx2ypnas987bnr7fmz0l1255rid5l9f4ajagd4bfry
+    tag: 1bf0b547cd3689c727586abb8385c008fb2a3d1c
+    --sha256: sha256-7ZhZUDhlFvV2us4G27iAk6lHezKS/4WA07NQn88VtQU=

plutip-server/plutip-server.cabal

@@ -87,6 +87,7 @@ executable plutip-server
     , wai-cors
     , wai-logger
     , warp
+    , wai-extra
 
   other-modules:
     Api

plutip-server/src/Api.hs

@@ -7,6 +7,7 @@ import Api.Handlers (
 import Control.Monad.IO.Class (liftIO)
 import Control.Monad.Reader (runReaderT)
 import Data.Kind (Type)
+import Network.Wai.Middleware.RequestLogger as Logger
 import Network.Wai.Middleware.Cors qualified as Cors
 import Servant (
   Application,
@@ -42,7 +43,7 @@ type Api =
       :> Post '[JSON] StopClusterResponse
 
 app :: Env -> Application
-app = Cors.cors (const $ Just policy) . serve api . appServer
+app = Logger.logStdout . Cors.cors (const $ Just policy) . serve api . appServer
   where
     policy :: Cors.CorsResourcePolicy
     policy =