Separate visualize-logs exe (#2197)

<!-- Describe your change here -->

---

<!-- Consider each and tick it off one way or the other -->
* [x] CHANGELOG updated or not needed
* [x] Documentation updated or not needed
* [x] Haddocks updated or not needed
* [x] No new TODOs introduced or explained herafter

Author: v0d1ch

hydra-node/hydra-node.cabal

@@ -248,25 +248,6 @@ executable hydra-node
 
   ghc-options:    -threaded -rtsopts -with-rtsopts=-N4
 
-executable visualize-logs
-  import:         project-config
-  hs-source-dirs: exe/visualize-logs
-  main-is:        Main.hs
-  build-depends:
-    , aeson
-    , attoparsec
-    , base
-    , conduit
-    , hydra-cardano-api
-    , hydra-node
-    , hydra-prelude
-    , lens
-    , lens-aeson
-    , optparse-applicative
-    , text
-
-  ghc-options:    -threaded -rtsopts -with-rtsopts=-N4
-
 benchmark tx-cost
   import:         project-config
   hs-source-dirs: bench/tx-cost

nix/coding-standards.nix

@@ -26,6 +26,7 @@ _: {
           hydra-test-utils
           hydra-tui
           hydraw
+          visualize-logs
         ];
         inherit (pkgs) weeder;
         haskellType = "haskell.nix";

nix/hydra/packages.nix

@@ -102,6 +102,18 @@
             "hydra-chain-observer"
             paddedRevision;
 
+        visualize-logs =
+          embedRevision
+            nativePkgs.visualize-logs.components.exes.visualize-logs
+            "visualize-logs"
+            paddedRevision;
+
+        visualize-logs-static =
+          embedRevision
+            musl64Pkgs.visualize-logs.components.exes.visualize-logs
+            "visualize-logs"
+            paddedRevision;
+
         hydra-cluster = pkgs.writers.writeBashBin "hydra-cluster" ''
           export PATH=$PATH:${hydra-node}/bin
           ${nativePkgs.hydra-cluster.components.exes.hydra-cluster}/bin/hydra-cluster "$@"

nix/hydra/project.nix

@@ -38,6 +38,7 @@
               hydra-chain-observer.writeHieFiles = true;
               hydra-cluster.writeHieFiles = true;
               hydra-node.writeHieFiles = true;
+              visualize-logs.writeHieFiles = true;
               hydra-plutus.writeHieFiles = true;
               hydra-plutus-extras.writeHieFiles = true;
               hydra-prelude.writeHieFiles = true;
@@ -46,6 +47,7 @@
               hydra-tui.writeHieFiles = true;
               hydraw.writeHieFiles = true;
               hydra-node.dontStrip = false;
+              visualize-logs.dontStrip = false;
               hydra-tui.dontStrip = false;
               hydraw.dontStrip = false;
             };
@@ -72,6 +74,7 @@
               hydra-node.ghcOptions = [ "-L${pkgs.lib.getLib pkgs.static-snappy}/lib" ];
               hydra-tui.ghcOptions = [ "-L${pkgs.lib.getLib pkgs.static-snappy}/lib" ];
               hydra-chain-observer.ghcOptions = [ "-L${pkgs.lib.getLib pkgs.static-snappy}/lib" ];
+              visualize-logs.ghcOptions = [ "-L${pkgs.lib.getLib pkgs.static-snappy}/lib" ];
               hydraw.ghcOptions = [ "-L${pkgs.lib.getLib pkgs.static-snappy}/lib" ];
             };
           }

visualize-logs/Main.hs

@@ -0,0 +1,11 @@
+-- | Parse hydra-node logs format more easy on the eyes. Parser works with regular json logs as well as journalctl format.
+module Main where
+
+import Hydra.Prelude
+import Options.Applicative (execParser)
+import VisualizeLogs
+
+main :: IO ()
+main = do
+  args <- execParser opts
+  visualize $ paths args

hydra-node/exe/visualize-logs/Main.hs renamed to visualize-logs/src/VisualizeLogs.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedRecordDot #-}
 
 -- | Parse hydra-node logs format more easy on the eyes. Parser works with regular json logs as well as journalctl format.
-module Main where
+module VisualizeLogs where
 
 import Hydra.Cardano.Api (Tx)
 import Hydra.Prelude hiding (encodeUtf8, takeWhile)
@@ -102,11 +102,6 @@ opts =
         <> header "Visualize hydra-node logs"
     )
 
-main :: IO ()
-main = do
-  args <- execParser opts
-  visualize $ paths args
-
 visualize :: [FilePath] -> IO ()
 visualize paths = do
   decodedLines <-

visualize-logs/visualize-logs.cabal

@@ -0,0 +1,61 @@
+cabal-version: 3.0
+name:          visualize-logs
+version:       0.22.4
+synopsis:      Visualize Hydra node logs
+author:        IOG
+copyright:     2022 IOG
+license:       Apache-2.0
+
+common project-config
+  default-language:   GHC2021
+  default-extensions:
+    DataKinds
+    DefaultSignatures
+    DeriveAnyClass
+    DeriveDataTypeable
+    DerivingStrategies
+    DuplicateRecordFields
+    FunctionalDependencies
+    GADTs
+    LambdaCase
+    MultiWayIf
+    NoImplicitPrelude
+    OverloadedStrings
+    PartialTypeSignatures
+    PatternSynonyms
+    TypeFamilies
+    ViewPatterns
+
+  ghc-options:
+    -Wall -Wcompat -Widentities -Wincomplete-record-updates
+    -Wincomplete-uni-patterns -Wredundant-constraints -Wunused-packages
+    -fprint-potential-instances -Wmissing-local-signatures
+
+library
+  import:          project-config
+  hs-source-dirs:  src
+  exposed-modules: VisualizeLogs
+  build-depends:
+    , aeson
+    , attoparsec
+    , base
+    , conduit
+    , hydra-cardano-api
+    , hydra-node
+    , hydra-prelude
+    , lens
+    , lens-aeson
+    , optparse-applicative
+    , text
+
+  ghc-options:     -haddock
+
+executable visualize-logs
+  import:        project-config
+  main-is:       Main.hs
+  build-depends:
+    , hydra-prelude
+    , optparse-applicative
+    , visualize-logs
+
+  ghc-options:   -threaded -rtsopts -with-rtsopts=-N4