diff options
Diffstat (limited to 'Omni/Agent/Log.hs')
| -rw-r--r-- | Omni/Agent/Log.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs index 71a7aca..2942563 100644 --- a/Omni/Agent/Log.hs +++ b/Omni/Agent/Log.hs @@ -166,7 +166,7 @@ updateFromEntry :: LogEntry -> Status -> Status updateFromEntry LogEntry {..} s = s { statusThread = leThreadId <|> statusThread s, - statusCredits = fromMaybe (statusCredits s) (leTotalCredits <|> leCredits), + statusCredits = maybe (statusCredits s) (/ 100.0) (leTotalCredits <|> leCredits), statusTime = maybe (statusTime s) formatTime leTimestamp } |