diff options
| -rw-r--r-- | Omni/Agent/Log.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs index c78dc4b..3f305d8 100644 --- a/Omni/Agent/Log.hs +++ b/Omni/Agent/Log.hs @@ -6,7 +6,6 @@ module Omni.Agent.Log where import Alpha -import Control.Applicative ((<$>), (<*>)) import Data.Aeson ((.:), (.:?)) import qualified Data.Aeson as Aeson import qualified Data.ByteString.Lazy as BL @@ -136,13 +135,13 @@ instance Aeson.FromJSON LogEntry where Aeson.withObject "LogEntry" <| \v -> (LogEntry </ (v .: "message")) <*> v - .:? "threadId" + .:? "threadId" <*> v - .:? "credits" + .:? "credits" <*> v - .:? "totalCredits" + .:? "totalCredits" <*> v - .:? "timestamp" + .:? "timestamp" -- | Parse a log line and update status processLogLine :: Text -> IO () |
