nuttycom/aftok - Change W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC

Factor common JSON conversions up into client lib module.

Created by Kris Nuttycombe on January 13, 2015

W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC

Dependencies

In channels

main

Change contents

Replacement in TASKS at line 45 [4.1]
B:BD[4.1236] → [4.1236:1253]
```
Quixotic Service
```
[4.1236]
[4.1253]
```
Payouts Service
```

File addition: Json.hs (----------)

[5.18]

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Quixotic.Json where
import ClassyPrelude
import Control.Lens
import Data.Aeson
import Data.Map
import Quixotic
import Quixotic.TimeLog
newtype PayoutsResponse = PayoutsResponse Payouts
instance ToJSON PayoutsResponse where
  toJSON (PayoutsResponse p) = toJSON m where
    m :: Map Text Double
    m = fmap fromRational $ mapKeys (^. address) p

Replacement in payouts/Main.hs at line 29 [3.1503]
B:BD[3.2102] → [3.2102:2107]
```
  } 
```
[3.2102]
[3.2107]
```
  } deriving Show
```
Insertion in payouts/Main.hs at line 46 [3.1503]
[3.2655]
[3.2655]
```
  putStrLn $ "Searching for unspent payouts " <> tshow cfg
```
File addition: Quixotic (d--x------)
[3.1482]

File addition: Client.hs (----------)

[0.603]

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Quixotic.Client where
import ClassyPrelude
import Data.Aeson
import Quixotic
import Quixotic.Json

Insertion in quixotic.cabal at line 23 [6.1]
[6.712]
[6.712]
```
                      Quixotic.Json
```
Deletion in server/Main.hs at line 8 [7.5188]
B:BD[7.5260] → [2.171:191]
```
import Control.Lens
```
Deletion in server/Main.hs at line 11 [7.5188]
∅:D[8.152] → [6.2439:2455]
B:BD[6.2439] → [6.2439:2455]
B:BD[6.2455] → [9.90:122]
```
import Data.Map
import qualified Data.Text as T
```
Insertion in server/Main.hs at line 12 [7.5188]
[2.256]
[6.2502]
Insertion in server/Main.hs at line 16 [7.5188]
[9.217]
[6.2543]
```
import Quixotic.Json
```
Insertion in server/Main.hs at line 18 [7.5188]
[6.2567]
[10.1565]
Deletion in server/Main.hs at line 70 [7.5188]
∅:D[2.1328] → [7.8456:8457]
∅:D[11.2399] → [7.8456:8457]
∅:D[6.3305] → [7.8456:8457]
∅:D[12.6790] → [7.8456:8457]
B:BD[7.8456] → [7.8456:8457]
B:BD[6.3415] → [6.3415:3465]
∅:D[11.2542] → [7.8536:8537]
∅:D[6.3465] → [7.8536:8537]
B:BD[7.8536] → [7.8536:8537]
B:BD[7.8537] → [6.3466:3506]
B:BD[6.3506] → [8.570:645]
B:BD[8.645] → [2.1329:1380]
```
newtype PayoutsResponse = PayoutsResponse Payouts
instance A.ToJSON PayoutsResponse where
  toJSON (PayoutsResponse p) = A.toJSON m where
    m :: Map T.Text Double
    m = fmap fromRational $ mapKeys (^. address) p
```

Factor common JSON conversions up into client lib module.

Dependencies

In channels

Change contents

Replacement in TASKS at line 45 [4.1]

File addition: Json.hs (----------)

Replacement in payouts/Main.hs at line 29 [3.1503]

Insertion in payouts/Main.hs at line 46 [3.1503]

File addition: Quixotic (d--x------)

File addition: Client.hs (----------)

Insertion in quixotic.cabal at line 23 [6.1]

Deletion in server/Main.hs at line 8 [7.5188]

Deletion in server/Main.hs at line 11 [7.5188]

Insertion in server/Main.hs at line 12 [7.5188]

Insertion in server/Main.hs at line 16 [7.5188]

Insertion in server/Main.hs at line 18 [7.5188]

Deletion in server/Main.hs at line 70 [7.5188]