nuttycom/aftok - Change Z24SZOGZJLDTDTGWH7M25RYQ7MYSU52ZLFWJ2PSQFTMK4J35PIWAC

Return richer information from event logging calls.

Created by Kris Nuttycombe on August 19, 2020

Z24SZOGZJLDTDTGWH7M25RYQ7MYSU52ZLFWJ2PSQFTMK4J35PIWAC

Dependencies

In channels

main

Change contents

Deletion in lib/Aftok/Json.hs at line 44 [4.19]
B:BD[3.20856] → [2.4146:4212]
```
import           Aftok.Database                 ( KeyedLogEntry )
```

Deletion in lib/Aftok/Json.hs at line 294 [4.19]

∅:D[5.2342] → [6.5559:5560]

∅:D[7.36804] → [6.5559:5560]

B:BD[8.2031] → [6.5559:5560]

B:BD[6.5560] → [2.5025:5216]


keyedLogEntryJSON :: NetworkMode -> (EventId, KeyedLogEntry (NetworkId, Address)) -> Value
keyedLogEntryJSON nmode le = qdbJSON "event" (_1 . _EventId) (_2 . _3 . to (logEntryJSON nmode)) le

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 6 [11.5424]
∅:D[9.5713] → [10.9625:9655]
B:BD[11.5545] → [10.9625:9655]
```
import           Control.Lens
```
[9.5713]
[7.57438]
```
import           Control.Lens                   ((^.))
```
Insertion in server/Aftok/Snaplet/WorkLog.hs at line 10 [11.5424]
[7.57553]
[12.311005]
```
import           Data.Aeson                     ((.=))
```

Insertion in server/Aftok/Snaplet/WorkLog.hs at line 20 [11.5424]

[7.57946]

                                                , NetworkMode

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 28 [11.5424]

B:BD[10.9959] → [7.58057:58122]

import           Aftok.Types                    ( CreditTo(..) )

[10.9959]

[7.58122]

import           Aftok.Types                    ( CreditTo(..), _ProjectId, _UserId )

Insertion in server/Aftok/Snaplet/WorkLog.hs at line 125 [11.5424]

[12.311215]


keyedLogEntryJSON :: NetworkMode -> (EventId, KeyedLogEntry (NetworkId, Address)) -> A.Value
keyedLogEntryJSON nmode (eid, (pid, uid, ev)) = v2 . obj $
  [ "eventId"   .= idValue _EventId eid
  , "projectId" .= idValue _ProjectId pid
  , "loggedBy"  .= idValue _UserId uid
  ] <> logEntryFields nmode ev