Allow filtering standard input

input-output-hk · Sep 24, 2021 · bbb369e · bbb369e
1 parent 79da78c
commit bbb369e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/hydra-node/exe/log-filter/Main.hs b/hydra-node/exe/log-filter/Main.hs
@@ -10,8 +10,9 @@ import System.IO.Error (isEOFError)
 
 main :: IO ()
 main = do
-  [logFile] <- getArgs
-  withFile logFile ReadMode $ \hdl -> go hdl
+  getArgs >>= \case
+    [logFile] -> withFile logFile ReadMode $ \hdl -> go hdl
+    _ -> go stdin
  where
   go hdl =
     try (LBS.hGetLine hdl) >>= \case