nuttycom/aftok - Change UOG5H2TW5R3FSHQPJCEMNFDQZS5APZUP7OM54FIBQG7ZP4HASQ7QC

Default work logging credit to logged-in user.

Created by Kris Nuttycombe on June 15, 2017

UOG5H2TW5R3FSHQPJCEMNFDQZS5APZUP7OM54FIBQG7ZP4HASQ7QC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Json.hs at line 329 [6.19]

B:BD[4.4290] → [5.3:87]

B:BD[5.87] → [3.1398:1445]

parseLogEntry :: (C.UTCTime -> LogEvent) -> Value -> Parser (C.UTCTime -> LogEntry)
parseLogEntry f = unversion "LogEntry" p where

[4.3863]

[7.4722]

parseLogEntry :: UserId -> (C.UTCTime -> LogEvent) -> Value -> Parser (C.UTCTime -> LogEntry)
parseLogEntry uid f = unversion "LogEntry" p where

Replacement in lib/Aftok/Json.hs at line 332 [6.19]

B:BD[7.4747] → [7.4747:4801]

    creditTo'  <- o .: "creditTo" >>= parseCreditToV2

[7.4747]

[7.4801]

    creditTo'  <- o .:? "creditTo" >>= maybe (pure $ CreditToUser uid) parseCreditToV2

Replacement in scripts/create_project.sh at line 7 [10.1241]

B:BD[8.104] → [9.2:131]

curl -v -k -u $USER -X POST -H "Content-Type: application/json" -d "{\"projectName\":\"$PROJECT\"}" 'https://aftok.com/projects'

[8.104]

[10.1379]

curl --verbose --insecure --user $USER \
  --request POST --header "Content-Type: application/json" \
  --data "{\"projectName\":\"$PROJECT\"}" \
  'https://aftok.com/projects'

Replacement in scripts/create_user.sh at line 9 [10.1424]

B:BD[11.2009] → [8.243:422]

curl -k -v -H 'Content-Type: application/json' -d "{\"username\":\"$USER\", \"password\":\"$PASS\", \"email\":\"$EMAIL\", \"btcAddr\":\"$BTC_ADDR\"}" 'https://aftok.com/register'

[11.2009]

[10.1648]

curl --verbose --insecure \
  --request POST --header 'Content-Type: application/json' \
  --data "{\"username\":\"$USER\", \"password\":\"$PASS\", \"email\":\"$EMAIL\", \"btcAddr\":\"$BTC_ADDR\"}" \
  'https://aftok.com/register'

Replacement in scripts/invite.sh at line 5 [2.1]
B:BD[2.46] → [2.46:77]
```
read -p "Project ID: " PROJECT
```
[2.46]
[2.77]
```
read -p "Project UUID: " PROJECT
```

Replacement in scripts/invite.sh at line 9 [2.1]

B:BD[2.108] → [2.108:200]

curl -v -k -u $USER -X POST -d '' "https://aftok.com/projects/$PROJECT/invite?email=$EMAIL"

[2.108]

curl --verbose --insecure --user $USER \
  --request POST \
  --data '' \
  "https://aftok.com/projects/$PROJECT/invite?email=$EMAIL"

Replacement in scripts/list_projects.sh at line 5 [12.1]

B:BD[12.71] → [9.133:186]

curl -k -u $USER -X GET "https://aftok.com/projects"

[12.71]

curl --verbose --insecure --user $USER \
  --request GET \
  "https://aftok.com/projects"

Replacement in scripts/log.sh at line 7 [12.176]

B:BD[12.284] → [9.188:309]

curl -v -k -u $USER -X GET "https://aftok.com/projects/$PROJECT/logEntries?after=$(date -Iseconds --date='1 month ago')"

[12.284]

curl --verbose --insecure --user $USER \
  --request GET \
  "https://aftok.com/projects/$PROJECT/logEntries?after=$(date -Iseconds --date='1 month ago')"

Replacement in scripts/log_end.sh at line 5 [13.532]
B:BD[8.497] → [8.497:528]
B:BD[8.528] → [14.42:66]
```
read -p "Project ID: " PROJECT
read -p "User ID: " UID
```
[8.497]
[8.561]
```
read -p "Project UUID: " PROJECT
```

Replacement in scripts/log_end.sh at line 7 [13.532]

B:BD[8.562] → [7.4877:5024]

curl -v -k -u $USER -X POST -d "{\"schemaVersion\": \"2.0\", \"creditTo\": {\"creditToUser\": \"$UID\"}}" "https://aftok.com/projects/$PID/logEnd"

[8.562]

curl --verbose --insecure --user $USER \
  --request POST \
  --data '{"schemaVersion": "2.0"}' \
  "https://aftok.com/projects/$PID/logEnd"

Replacement in scripts/log_start.sh at line 5 [13.689]
B:BD[8.738] → [14.188:239]
```
read -p "Project ID: " PID
read -p "User ID: " UID
```
[8.738]
[8.802]
```
read -p "Project UUID: " PID
```

Replacement in scripts/log_start.sh at line 7 [13.689]

B:BD[8.803] → [7.5026:5175]

curl -v -k -u $USER -X POST -d "{\"schemaVersion\": \"2.0\", \"creditTo\": {\"creditToUser\": \"$UID\"}}" "https://aftok.com/projects/$PID/logStart"

[8.803]

curl --verbose --insecure --user $USER \
  --request POST \
  --data '{"schemaVersion": "2.0"}' \
  "https://aftok.com/projects/$PID/logStart"

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 31 [15.5424]

B:BD[5.322] → [5.322:397]

  case A.eitherDecode requestBody >>= parseEither (parseLogEntry evCtr) of

[5.322]

[5.397]

  case A.eitherDecode requestBody >>= parseEither (parseLogEntry uid evCtr) of