summaryrefslogtreecommitdiff
path: root/Omni
diff options
context:
space:
mode:
Diffstat (limited to 'Omni')
-rw-r--r--Omni/Agent/Log.hs9
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 ()