Return richer information from event logging calls.

Dependencies

• [2] ZIG57EE6 Fix project selection, end log end on project switch.
• [3] BROSTG5K Beginning of modularization of server.
• [4] Z3MK2PJ5 Add GET handler for retrieving auction data.
• [5] EFSXYZPO Autoformat everything with brittany.
• [6] W35DDBFY Factor common JSON conversions up into client lib module.
• [7] NEDDHXUK Reformat via stylish-haskell
• [8] HALRDT2F Added initial auction create route.
• [9] 4R7XIYK3 Switch from ClassyPrelude to Relude
• [10] IPG33FAW Add billing daemon
• [11] O227CEAV Adds storage of original event JSON for some DBOp constructors.
• [12] B6HWAPDP Modularize & update to recent haskoin.
• [13] O722AOKE Add route to allow crediting of events to users/projects.
• [14] 7VGYLTMU Clean up schema version handling.
• [15] NLZ3JXLO Fix formatting with stylish-haskell.
• [16] RPAJLHMT Change to use UUIDs instead of ints for primary keys.
• [17] O5FVTOM6 Undo JSON silliness, enable a couple more routes.
• [18] GCVQD44V Create amends endpoint, switch to UUID primary keys
• [*] NJNMO72S Add zcash.com submodule and update client to modern halogen.

Change contents

• edit in lib/Aftok/Json.hs at line 44
  [3.20856]→[2.4146:4212](∅→∅)
  − import Aftok.Database ( KeyedLogEntry )
• edit in lib/Aftok/Json.hs at line 294
  [3.2342]→[3.5559:5560](∅→∅),[3.36804]→[3.5559:5560](∅→∅),[3.2031]→[3.5559:5560](∅→∅),[3.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
  [3.5713]→[3.9625:9655](∅→∅),[3.5545]→[3.9625:9655](∅→∅)
  − import Control.Lens
  [3.5713]

  [3.57438]
  + import Control.Lens ((^.))
• edit in server/Aftok/Snaplet/WorkLog.hs at line 10
  [3.57553]

  [20.311005]
  + import Data.Aeson ((.=))
• edit in server/Aftok/Snaplet/WorkLog.hs at line 20
  [3.57946]

  [3.57946]
  + , NetworkMode
• replacement in server/Aftok/Snaplet/WorkLog.hs at line 28
  [3.9959]→[3.58057:58122](∅→∅)
  − import Aftok.Types ( CreditTo(..) )
  [3.9959]

  [3.58122]
  + import Aftok.Types ( CreditTo(..), _ProjectId, _UserId )
• edit in server/Aftok/Snaplet/WorkLog.hs at line 125
  [20.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

  +