Add executable to tackle log visualization

Signed-off-by: Sasha Bogicevic <[email protected]>

Author: v0d1ch

hydra-node/exe/visualize-logs/Main.hs

@@ -0,0 +1,12 @@
+module Main where
+
+import Hydra.Cardano.Api
+import Hydra.Prelude
+
+import Hydra.Logging.Messages (HydraLog)
+import Hydra.Utils (readJsonFileThrow)
+
+main :: IO ()
+main = do
+  results <- readJsonFileThrow parseJSON "devnet/alice-logs.txt" :: IO (Either String (HydraLog Tx))
+  pure ()

hydra-node/hydra-node.cabal

@@ -247,6 +247,19 @@ 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:
+    , base
+    , bytestring
+    , hydra-cardano-api
+    , hydra-node
+    , hydra-prelude
+    , unix
+
+  ghc-options:    -threaded -rtsopts -with-rtsopts=-N4
 benchmark tx-cost
   import:         project-config
   hs-source-dirs: bench/tx-cost