diff options
| author | Omni Worker <bot@omni.agent> | 2025-11-22 04:55:40 -0500 |
|---|---|---|
| committer | Omni Worker <bot@omni.agent> | 2025-11-22 04:55:40 -0500 |
| commit | 8b9a184260b5dfc563b884071d10511602606ccf (patch) | |
| tree | 798e5a21d09f8748e6ea7ef439d81357924e7f3f | |
| parent | e733b42ceb547015cba5c99a612857727b31d3c8 (diff) | |
style: fix linting
Amp-Thread-ID:
https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483
Co-authored-by: Amp <amp@ampcode.com>
| -rw-r--r-- | Omni/Agent/Log.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs index 1f2746d..084052b 100644 --- a/Omni/Agent/Log.hs +++ b/Omni/Agent/Log.hs @@ -72,10 +72,10 @@ log msg = do ANSI.hCursorDown IO.stderr 1 ANSI.hClearLine IO.stderr ANSI.hCursorUp IO.stderr 3 - + -- Print message (scrolls screen) TIO.hPutStrLn IO.stderr msg - + -- Re-render status bars at bottom -- (Since we scrolled, we are now on the line above where the first status line should be) render @@ -84,10 +84,10 @@ log msg = do render :: IO () render = do Status {..} <- readIORef currentStatus - + let taskStr = maybe "None" identity statusTask threadStr = maybe "None" identity statusThreadId - + -- Line 1: Worker + Time ANSI.hSetCursorColumn IO.stderr 0 ANSI.hClearLine IO.stderr @@ -110,7 +110,7 @@ render = do ANSI.hSetCursorColumn IO.stderr 0 ANSI.hClearLine IO.stderr TIO.hPutStr IO.stderr ("> " <> statusActivity) - + -- Return cursor to Line 1 ANSI.hCursorUp IO.stderr 3 IO.hFlush IO.stderr |