diff options
Diffstat (limited to 'Omni/Agent/Log.hs')
| -rw-r--r-- | Omni/Agent/Log.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs index b1020c5..55bc1e2 100644 --- a/Omni/Agent/Log.hs +++ b/Omni/Agent/Log.hs @@ -72,6 +72,10 @@ update f = do modifyIORef' currentStatus f render +-- | Get the current status +getStatus :: IO Status +getStatus = readIORef currentStatus + -- | Set the activity message updateActivity :: Text -> IO () updateActivity msg = update (\s -> s {statusActivity = msg}) |