From dd028e6043d2b3d6751e6a002fb49dbb48a8dcfd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 14 Apr 2025 21:32:51 +0200
Subject: Log command

Changelog: Added `log` command to show job log
---
 src/Command/Log.hs | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 src/Command/Log.hs

(limited to 'src/Command')

diff --git a/src/Command/Log.hs b/src/Command/Log.hs
new file mode 100644
index 0000000..92866d4
--- /dev/null
+++ b/src/Command/Log.hs
@@ -0,0 +1,45 @@
+module Command.Log (
+    LogCommand,
+) where
+
+import Control.Monad.IO.Class
+
+import Data.Text (Text)
+import Data.Text qualified as T
+import Data.Text.Lazy qualified as TL
+import Data.Text.Lazy.IO qualified as TL
+
+import System.FilePath
+
+import Command
+import Eval
+import Job
+import Job.Types
+import Output
+
+
+data LogCommand = LogCommand JobRef
+
+instance Command LogCommand where
+    commandName _ = "log"
+    commandDescription _ = "Show log for the given job"
+
+    type CommandArguments LogCommand = Text
+
+    commandUsage _ = T.pack $ unlines $
+        [ "Usage: minici log <job ref>"
+        ]
+
+    commandInit _ _ = LogCommand . JobRef . T.splitOn "."
+    commandExec = cmdLog
+
+
+cmdLog :: LogCommand -> CommandExec ()
+cmdLog (LogCommand ref) = do
+    einput <- getEvalInput
+    jid <- either (tfail . textEvalError) return =<<
+        liftIO (runEval (evalJobReference ref) einput)
+    output <- getOutput
+    storageDir <- getStorageDir
+    liftIO $ mapM_ (outputEvent output . OutputMessage . TL.toStrict) . TL.lines =<<
+        TL.readFile (storageDir </> jobStorageSubdir jid </> "log")
-- 
cgit v1.2.3