nuttycom/aftok - Change 46PUXHTYRNWQEELXOM7M7NTAFABN5JYQSB5HPN5VF4HWBDQWJU7QC

Implement project invitations.

Created by Kris Nuttycombe on February 8, 2021

46PUXHTYRNWQEELXOM7M7NTAFABN5JYQSB5HPN5VF4HWBDQWJU7QC

Dependencies

In channels

main

Change contents

Insertion in client/src/Aftok/Api/Project.purs at line 9 [5.2899]
[4.1829]
[5.3197]
```
import Data.Argonaut.Encode (encodeJson)
```
Replacement in client/src/Aftok/Api/Project.purs at line 16 [5.2899]
B:BD[6.26] → [7.226:252]
```
import Data.Maybe (Maybe)
```
[6.26]
[7.252]
```
import Data.Maybe (Maybe(..))
```
Replacement in client/src/Aftok/Api/Project.purs at line 26 [5.2899]
∅:D[8.1175] → [9.1129:1149]
B:BD[5.3542] → [9.1129:1149]
```
import Affjax (get)
```
[8.1175]
[5.3616]
```
import Affjax (get, post)
```
Insertion in client/src/Aftok/Api/Project.purs at line 28 [5.2899]
[5.3651]
[5.3651]
```
import Affjax.RequestBody as RB
```
Replacement in client/src/Aftok/Api/Project.purs at line 35 [5.2899]
B:BD[5.3726] → [8.1176:1189]
```
  (APIError)
```
[5.3726]
[8.1189]
```
  (APIError, CommsAddress(..), Zip321Request(..))
```
Insertion in client/src/Aftok/Api/Project.purs at line 39 [5.2899]
[8.1236]
[9.1228]
```
  , parseResponse
```

Insertion in client/src/Aftok/Api/Project.purs at line 194 [5.2899]

[7.2250]


encodeInviteBy :: CommsAddress -> Json
encodeInviteBy = case _ of
  EmailCommsAddr email -> encodeJson ({ email: email })
  ZcashCommsAddr zaddr -> encodeJson ({ zaddr: zaddr })
type Invitation' by = 
  { greetName :: String
  , message :: Maybe String
  , inviteBy :: by
  }
type Invitation = Invitation' CommsAddress
encodeInvitation :: Invitation' Json -> Json
encodeInvitation = encodeJson
type InvResult = 
  { zip321_request :: Maybe String
  }
decodeInvResult :: Json -> Either JsonDecodeError InvResult
decodeInvResult = decodeJson
invite :: ProjectId -> Invitation -> Aff (Either APIError (Maybe Zip321Request))
invite pid inv = do
  let inv' = inv { inviteBy = encodeInviteBy inv.inviteBy }
  let body = RB.json $ encodeInvitation inv'
  response <- post RF.json ("/api/projects/" <> pidStr pid <> "/invite") (Just body)
  map (\r -> Zip321Request <$> r.zip321_request) <$> parseResponse decodeInvResult response

Insertion in client/src/Aftok/Api/Types.purs at line 7 [5.5791]
[5.5945]
[5.5945]
```
import Data.Newtype (class Newtype)
```

Insertion in client/src/Aftok/Api/Types.purs at line 24 [5.5791]

[10.452]


data CommsType
  = EmailComms
  | ZcashComms
derive instance commsTypeEq :: Eq CommsType
data CommsAddress
  = EmailCommsAddr String
  | ZcashCommsAddr String
newtype Zip321Request = Zip321Request String
derive instance zip321RequestNewtype :: Newtype Zip321Request _

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 9 [12.11170]
[2.152]
[11.3584]
```
import Data.Newtype (unwrap)
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 24 [12.11170]
B:BD[13.1870] → [13.1870:1908]
```
import Aftok.Api.Types (APIError(..))
```
[13.1870]
[13.1908]
```
import Aftok.Api.Types (APIError(..), Zip321Request(..))
```
Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 27 [12.11170]
B:BD[13.1948] → [11.3652:3676]
```
  , PaymentRequest'(..)
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 202 [12.11170]
B:BD[11.7092] → [14.542:578]
```
type QrInput = Maybe PaymentRequest
```
[11.7092]
[14.578]
```
type QrInput = Maybe Zip321Request
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 205 [12.11170]
B:BD[14.595] → [14.595:627]
```
  { req :: Maybe PaymentRequest
```
[14.595]
[14.627]
```
  { req :: Maybe Zip321Request
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 210 [12.11170]
B:BD[11.7144] → [11.7144:7174]
```
  = QrRender PaymentRequest a
```
[11.7144]
[11.7174]
```
  = QrRender Zip321Request a
```

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 249 [12.11170]

[14.873]

[11.8010]

      , HH.div_
        [ HH.span
            [ P.classes (ClassName <$> ["code", "zip321uri"]) ]
            (HH.text <<< unwrap <$> U.fromMaybe st.req)
        ]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 260 [12.11170]
B:BD[14.909] → [14.909:956]
```
      H.modify_ (_ { dataUrl = Just dataUrl })
```
[14.909]
[11.8191]
```
      H.modify_ (_ { req = Just r, dataUrl = Just dataUrl })
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 271 [12.11170]

B:BD[13.14505] → [14.987:1028]

∅:D[14.1028] → [11.8432:8465]

B:BD[11.8432] → [11.8432:8465]

B:BD[11.8465] → [14.1029:1103]

  renderQR :: PaymentRequest -> m String
  renderQR (PaymentRequest r) = 
    system.renderQR { value: r.native_request.zip321_request, size: 300 }

[13.14505]

  renderQR :: Zip321Request -> m String
  renderQR (Zip321Request r) = 
    system.renderQR { value: r, size: 300 }

Replacement in client/src/Aftok/Billing.purs at line 28 [15.2755]
B:BD[15.3430] → [15.3430:3468]
```
import Aftok.Api.Types (APIError(..))
```
[15.3430]
[15.3468]
```
import Aftok.Api.Types (APIError(..), Zip321Request(..))
```
Insertion in client/src/Aftok/Billing.purs at line 35 [15.2755]
[15.3596]
[15.3615]
```
  , PaymentRequest'(..)
```

Replacement in client/src/Aftok/Billing.purs at line 230 [15.2755]

B:BD[11.10152] → [11.10152:10258]

      PaymentRequestCreated req -> do
        lift $ system.log "Created payment request, closing modal."

[11.10152]

[11.10258]

      PaymentRequestCreated (PaymentRequest req) -> do

Deletion in client/src/Aftok/Billing.purs at line 232 [15.2755]
B:BD[11.10334] → [11.10334:10390]
```
        lift $ system.log "About to show QR code modal"
```

Replacement in client/src/Aftok/Billing.purs at line 233 [15.2755]

B:BD[11.10468] → [11.10468:10553]

        _ <- H.query _showPaymentRequest unit $ H.tell (PaymentRequest.QrRender req)

[11.10468]

[11.10553]

        let req' = Zip321Request req.native_request.zip321_request
        _ <- H.query _showPaymentRequest unit $ H.tell (PaymentRequest.QrRender req')

File addition: Forms.purs (----------)

[16.3158]

module Aftok.HTML.Forms where
import Prelude
import Data.Maybe (Maybe(..), fromMaybe)
import Halogen.HTML.Core (AttrName(..), ClassName(..))
import Halogen.HTML as HH
import Halogen.HTML.CSS as CSS
import Halogen.HTML.Events as E
import Halogen.HTML.Properties as P
import CSS.Display (display, flex)
import CSS.Flexbox (flexFlow, row, nowrap)
import Aftok.Api.Types (CommsType(..))
type CommsState r = 
  { recoveryType :: CommsType
  , recoveryEmail :: Maybe String
  , recoveryZAddr :: Maybe String
  | r }
type SetCommsType action = CommsType -> action
type SetEmail action = String -> action
type SetZaddr action = String -> action
commsSwitch :: forall i a. SetCommsType a -> CommsType -> HH.HTML i a
commsSwitch setCommsType rt =
  HH.div
    [ P.classes (ClassName <$> [ "form-group", "mb-3" ]) ]
    [ HH.label
        [ P.for "commsSwitch" ]
        [ HH.text "Choose a communications method" ]
    , HH.div
        [ P.classes (ClassName <$> [ "form-group", "mb-3" ])
        , CSS.style do
            display flex
            flexFlow row nowrap
        ]
        [ HH.span
            [ P.classes (ClassName <$> [ if rt == EmailComms then "text-success" else "text-muted" ]) ]
            $ [ HH.text "Email" ]
        , HH.div
            [ P.classes (ClassName <$> [ "custom-control", "custom-switch", "custom-switch-light", "mx-3" ]) ]
            [ HH.input
                [ P.type_ P.InputCheckbox
                , P.classes (ClassName <$> [ "custom-control-input" ])
                , P.id_ "commsSwitch"
                , P.checked (rt == ZcashComms)
                , E.onChecked (\b -> Just <<< setCommsType $ if b then ZcashComms else EmailComms)
                ]
            , HH.label [ P.classes (ClassName <$> [ "custom-control-label" ]), P.for "commsSwitch" ] []
            ]
        , HH.span
            [ P.classes (ClassName <$> [ if rt == ZcashComms then "text-success" else "text-muted" ]) ]
            [ HH.text "Z-Address" ]
        ]
    ]
type CommsErrors i a = CommsType -> Array (HH.HTML i a)
commsField :: 
  forall i a r. 
  SetEmail a -> 
  SetZaddr a -> 
  CommsState r -> 
  CommsErrors i a -> 
  HH.HTML i a
commsField setEmail setZAddr st errs = case st.recoveryType of
  EmailComms ->
    HH.div
      [ P.id_ "recoveryEmail" ]
      $ [ HH.label [ P.for "email" ] [ HH.text "Email Address" ]
        , HH.input
            [ P.type_ P.InputEmail
            , P.classes (ClassName <$> [ "form-control" ])
            , P.id_ "email"
            , P.placeholder "name@address.com"
            , P.value (fromMaybe "" st.recoveryEmail)
            , E.onValueInput (Just <<< setEmail)
            ]
        ]
      <> errs EmailComms 
  ZcashComms ->
    HH.div
      [ P.id_ "recoveryZAddr" ]
      $ [ HH.label
            [ P.for "zaddr" ]
            [ HH.text "Zcash Shielded Address"
            , HH.a
                [ P.attr (AttrName "data-toggle") "modal"
                , P.href "#modalAboutZAddr"
                ]
                [ HH.img [ P.src "/assets/img/icons/duotone-icons/Code/Info-circle.svg" ]
                ]
            ]
        , HH.input
            [ P.type_ P.InputText
            , P.classes (ClassName <$> [ "form-control" ])
            , P.id_ "email"
            , P.placeholder "Enter a Zcash shielded address"
            , P.value (fromMaybe "" st.recoveryZAddr)
            , E.onValueInput (Just <<< setZAddr)
            ]
        ]
      <> errs ZcashComms

Insertion in client/src/Aftok/Overview.purs at line 26 [17.91]

[17.1519]

[5.6406]

import Aftok.Billing.PaymentRequest as PaymentRequest
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI

Insertion in client/src/Aftok/Overview.purs at line 30 [17.91]
[5.6446]
[18.255]
```
import Aftok.Projects.Invite as Invite
```
Replacement in client/src/Aftok/Overview.purs at line 32 [17.91]
B:BD[18.315] → [19.37:71]
```
import Aftok.Api.Types (APIError)
```
[18.315]
[8.3542]
```
import Aftok.Api.Types (APIError, Zip321Request)
```
Insertion in client/src/Aftok/Overview.purs at line 59 [17.91]
[17.2395]
[17.2395]
```
  | InvitationCreated (Maybe Zip321Request)
```

Insertion in client/src/Aftok/Overview.purs at line 66 [17.91]

[5.6592]

[20.9890]

    , invitationModal :: Invite.Slot Unit
    , inviteQRModal :: PaymentRequest.QrSlot Unit

Insertion in client/src/Aftok/Overview.purs at line 71 [17.91]

[17.2567]

_invitationModal = SProxy :: SProxy "invitationModal"
_inviteQRModal = SProxy :: SProxy "inviteQRModal"

Insertion in client/src/Aftok/Overview.purs at line 76 [17.91]
[19.175]
[20.9939]
```
    , invitationCaps :: Invite.Capability m
```

Insertion in client/src/Aftok/Overview.purs at line 168 [17.91]

[8.5905]

              <>
            [ HH.div 
              [ P.classes (ClassName <$> [ "row", "pt-3", "font-weight-bold" ]) ]
              [ HH.div 
                  [ P.classes (ClassName <$> [ "col-md-2" ]) ] 
                  [ Modals.modalButton Invite.modalId "Invite a collaborator" Nothing]
                , system.portal
                    _invitationModal
                    unit
                    (Invite.component system caps.invitationCaps)
                    project.projectId
                    Nothing
                    (Just <<< InvitationCreated)
               , system.portal
                   _inviteQRModal
                   unit
                   (PaymentRequest.qrcomponent system)
                   Nothing
                   Nothing
                   (const Nothing)
                  ]
            ]

Deletion in client/src/Aftok/Overview.purs at line 222 [17.91]

∅:D[21.651] → [8.6533:11215]

B:BD[6.3320] → [8.6533:11215]

  --         </section>
  --              <!-- Map payouts -->
  --              <div class="row font-weight-bold">
  --                 <div class="col-md-2">
  --                 </div>
  --                 <div class="col-md-4">
  --                     Payments
  --                 </div>
  --                 <div class="col-md-6">
  --
  --                 </div>
  --              </div>
  --              <div class="row">
  --                 <div class="col-md-2">
  --                 </div>
  --                 <div class="col-md-2">
  --                     Oct 20 2020
  --                 </div>
  --                 <div class="col-md-2">
  --                     100 zec
  --                 </div>
  --                 <div class="col-md-2">
  --                     Acme PaidUsRight
  --                 </div>
  --                 <div class="col-md-4">
  --                 </div>
  --             </div>
  --             <!-- map payout creditTos-->
  --             <div class="row pt-3">
  --                 <div class="col-md-4">
  --                 </div>
  --                 <div class="col-md-2">
  --                     Freuline Fred
  --                 </div>
  --                 <div class="col-md-2">
  --                     2.4 zec
  --                 </div>
  --                 <div class="col-md-2">
  --                     2.4 %
  --                 </div>
  --                 <div class="col-md-2">
  --                 </div>
  --             </div>
  --             <div class="row pt-3">
  --                 <div class="col-md-4">
  --                 </div>
  --                 <div class="col-md-2">
  --                     Goobie Works A Lot
  --                 </div>
  --                 <div class="col-md-2">
  --                     50 zec
  --                 </div>
  --                 <div class="col-md-2">
  --                     50 %
  --                 </div>
  --                 <div class="col-md-2">
  --                 </div>
  --             </div> <div class="row pt-3">
  --                 <div class="col-md-4">
  --                 </div>
  --                 <div class="col-md-2">
  --                     Average Fella
  --                 </div>
  --                 <div class="col-md-2">
  --                     25 zec
  --                 </div>
  --                 <div class="col-md-2">
  --                     25 %
  --                 </div>
  --                 <div class="col-md-2">
  --                 </div>
  --             </div> <div class="row pt-3">
  --                 <div class="col-md-4">
  --                 </div>
  --                 <div class="col-md-2">
  --                     Cool Kid
  --                 </div>
  --                 <div class="col-md-2">
  --                     24.6 zec
  --                 </div>
  --                 <div class="col-md-2">
  --                     24.6 %
  --                 </div>
  --                 <div class="col-md-2">
  --                 </div>
  --             </div>
  --
  --         </section>
  --
  --
  --         <!-- New Project form-->
  --         <section id="addProject">
  --
  --             <div class="row pt-3">
  --                 <div class="col-md-4">
  --                     <span class="float-right">Project Name</span>
  --                 </div>
  --                 <div class="col-md-4">
  --                     <input type="text" id="projectName" name="projectName" />
  --                 </div>
  --             </div>
  --
  --             <div class="row pt-3">
  --                 <div class="col-md-4">
  --                     <span class="float-right">Undepreciated Period ( Months )</span>
  --                 </div>
  --                 <div class="col-md-4">
  --                     <input type="text" id="undepreciatedPeriod" name="undepreciatedPeriod" />
  --                 </div>
  --             </div>
  --
  --             <div class="row pt-3">
  --                 <div class="col-md-4">
  --                     <span class="float-right">Depreciation Duration ( Months )</span>
  --                 </div>
  --                 <div class="col-md-4">
  --                     <input type="text" id="depreciationDuration" name="depreciationDuration" />
  --                 </div>
  --             </div>
  --
  --             <div class="row pt-3 pb-3">
  --                 <div class="col-md-2">
  --                 </div>
  --                 <div class="col-md-10">
  --                     <button class="btn btn-sm btn-primary lift ml-auto">Add Project</button>
  --                 </div>
  --             </div>
  --
  --         </section>

Insertion in client/src/Aftok/Overview.purs at line 237 [17.91]

[18.680]

[17.4104]

      InvitationCreated req -> do
        lift $ system.toggleModal Invite.modalId ModalFFI.HideModal
        lift $ system.toggleModal PaymentRequest.qrModalId ModalFFI.ShowModal
        traverse_ (\r -> H.query _inviteQRModal unit $ H.tell (PaymentRequest.QrRender r)) req
        pure unit

Insertion in client/src/Aftok/Overview.purs at line 253 [17.91]
[19.345]
[5.6925]
```
  , invitationCaps: Invite.apiCapability
```
Insertion in client/src/Aftok/Overview.purs at line 282 [17.91]
[8.12245]
[5.6985]
```
  , invitationCaps: Invite.apiCapability
```
File addition: Projects (d--x------)
[22.1]

File addition: Invite.purs (----------)

[0.7504]

module Aftok.Projects.Invite where
import Prelude
import Control.Monad.Trans.Class (lift)
import Data.Array (filter)
import Data.Either (Either(..), note)
import Data.Foldable (any)
import Data.Maybe (Maybe(..))
import Data.Validation.Semigroup (V(..), toEither)
import Effect.Aff (Aff)
import Halogen as H
import Halogen.HTML as HH
import Halogen.HTML.Core (ClassName(..))
import Halogen.HTML.Events as E
import Halogen.HTML.Properties as P
import Aftok.Api.Account as Acc
import Aftok.Api.Project as Project
import Aftok.Api.Project (Invitation')
import Aftok.Api.Types (APIError, CommsType(..), CommsAddress(..), Zip321Request)
import Aftok.HTML.Forms (commsSwitch, commsField)
import Aftok.HTML.Classes as C
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI
import Aftok.Types (System, ProjectId)
data Field
  = NameField
  | EmailField
  | ZAddrField
derive instance fieldEq :: Eq Field
derive instance fieldOrd :: Ord Field
type CState =
  { projectId :: ProjectId
  , greetName :: Maybe String
  , message :: Maybe String
  , recoveryType :: CommsType
  , recoveryEmail :: Maybe String
  , recoveryZAddr :: Maybe String
  , fieldErrors :: Array Field
  }
type Input = ProjectId
type Output = Maybe Zip321Request
data Action
  = ProjectChanged ProjectId
  | SetGreetName String
  | SetMessage String
  | SetCommsType CommsType
  | SetEmail String
  | SetZAddr String
  | CreateInvitation
type Slot id
  = forall query. H.Slot query Output id
type Capability (m :: Type -> Type)
  = { createInvitation :: ProjectId -> Invitation' CommsAddress -> m (Either APIError (Maybe Zip321Request))
    , checkZAddr :: String -> m Acc.ZAddrCheckResponse
    }
modalId :: String
modalId = "createInvitation"
component ::
  forall query m.
  Monad m =>
  System m ->
  Capability m ->
  H.Component HH.HTML query Input Output m
component system caps =
  H.mkComponent
    { initialState
    , render
    , eval:
        H.mkEval
          $ H.defaultEval
              { handleAction = eval
              , receive = Just <<< ProjectChanged
              }
    }
  where
  initialState :: Input -> CState
  initialState input =
    { projectId: input
    , greetName : Nothing
    , message : Nothing
    , recoveryType: EmailComms
    , recoveryEmail: Nothing
    , recoveryZAddr: Nothing
    , fieldErrors : []
    }
  render :: forall slots. CState -> H.ComponentHTML Action slots m
  render st =
    Modals.modalWithSave modalId "Invite a collaborator" CreateInvitation
      [ HH.form_
        [ formGroup st
          [ NameField ]
          [ HH.label
            [ P.for "greetName"]
            [ HH.text "Name" ]
          , HH.input
            [ P.type_ P.InputText
            , P.classes [ C.formControl, C.formControlSm ]
            , P.id_ "greetName"
            , P.placeholder "Who are you inviting?"
            , E.onValueInput (Just <<< SetGreetName)
            ]
          ]
        , formGroup st
          [ ]
          [ HH.label
              [ P.for "message"]
              [ HH.text "Message" ]
          , HH.input
              [ P.type_ P.InputText
              , P.classes [C.formControl, C.formControlSm]
              , P.id_ "message"
              , P.placeholder "Enter your message here"
              , E.onValueInput (Just <<< SetMessage)
              ]
          ]
        , commsSwitch SetCommsType st.recoveryType
        , commsField SetEmail SetZAddr st $ case _ of
            EmailComms -> fieldError st EmailField    
            ZcashComms -> fieldError st ZAddrField
        ]
      ]
  formGroup :: forall i a. CState -> Array Field -> Array (HH.HTML i a) -> HH.HTML i a
  formGroup st fields body =
    HH.div
     [ P.classes [C.formGroup] ]
     (body <> (fieldError st =<< fields))
  fieldError :: forall i a. CState -> Field -> Array (HH.HTML i a)
  fieldError st field =
    if any (_ == field) st.fieldErrors
       then case field of
            NameField -> err "The name field is required"
            EmailField -> err "The email field is when email comms are selected"
            ZAddrField -> err "Not a valid Zcash shielded address."
       else []
    where
    err str = [ HH.div_ [ HH.span [ P.classes (ClassName <$> [ "badge", "badge-danger-soft" ]) ] [ HH.text str ] ] ]
  setZAddr addr = do
    zres <- lift $ caps.checkZAddr addr
    H.modify_ (_ { recoveryZAddr = Just addr })
    case zres of
      Acc.ZAddrCheckValid -> 
        H.modify_ (\st -> st { fieldErrors = filter (_ /= ZAddrField) st.fieldErrors, recoveryType = ZcashComms })
      Acc.ZAddrCheckInvalid -> 
        H.modify_ (\st -> st { fieldErrors = st.fieldErrors <> [ZAddrField] })
  -- eval :: forall slots. Action -> H.HalogenM CState Action slots Output m Unit
  eval = case _ of
      ProjectChanged pid ->
        H.modify_ (_ { projectId = pid })
      SetGreetName name ->
        H.modify_ (_ { greetName = Just name })
      SetMessage msg ->
        H.modify_ (_ { message = Just msg })
      SetCommsType t -> 
        H.modify_ (_ { recoveryType = t })
      SetEmail email -> 
        H.modify_ (_ { recoveryEmail = Just email })
      SetZAddr addr ->
        when (addr /= "") (setZAddr addr)
      CreateInvitation -> do
        nameV <- V <<< note [NameField] <$> H.gets (_.greetName)
        message <- H.gets (_.message)
        addrType <- H.gets (_.recoveryType)
        addrV <- 
          case addrType of
            EmailComms -> map EmailCommsAddr <<< V <<< note [EmailField] <$> H.gets (_.recoveryEmail)
            ZcashComms -> map ZcashCommsAddr <<< V <<< note [ZAddrField] <$> H.gets (_.recoveryZAddr)
        let reqV :: V (Array Field) (Invitation' CommsAddress)
            reqV = { greetName: _, message: _, inviteBy: _ }
              <$> nameV
              <*> pure message
              <*> addrV
        case toEither reqV of
          Left errors -> do
            H.modify_ (_ { fieldErrors = errors })
          Right invitation -> do
            pid <- H.gets (_.projectId)
            res <- lift $ caps.createInvitation pid invitation
            case res of
              Right result -> do
                H.raise result
                lift $ system.toggleModal modalId ModalFFI.HideModal
              Left errs ->
                lift $ system.error (show errs)
apiCapability :: Capability Aff
apiCapability 
  = { createInvitation: Project.invite
    , checkZAddr: Acc.checkZAddr
    }

Deletion in client/src/Aftok/Signup.purs at line 18 [23.1]
∅:D[3.1583] → [23.131:172]
∅:D[24.5168] → [23.131:172]
B:BD[23.131] → [23.131:172]
```
-- import Affjax (post, get, printError)
```
Deletion in client/src/Aftok/Signup.purs at line 19 [23.1]
B:BD[23.210] → [23.210:283]
```
-- import Affjax.RequestBody as RB
-- import Affjax.ResponseFormat as RF
```
Replacement in client/src/Aftok/Signup.purs at line 20 [23.1]
B:BD[23.304] → [23.304:359]
```
import Halogen.HTML.Core (AttrName(..), ClassName(..))
```
[23.304]
[23.359]
```
import Halogen.HTML.Core (ClassName(..))
```
Deletion in client/src/Aftok/Signup.purs at line 22 [23.1]
B:BD[23.385] → [25.726:757]
```
import Halogen.HTML.CSS as CSS
```
Deletion in client/src/Aftok/Signup.purs at line 25 [23.1]
B:BD[23.553] → [23.553:590]
B:BD[23.590] → [25.758:836]
```
-- import CSS (backgroundImage, url)
import CSS.Display (display, flex)
import CSS.Flexbox (flexFlow, row, nowrap)
```

Insertion in client/src/Aftok/Signup.purs at line 30 [23.1]

[26.193]

[3.1658]

import Aftok.Api.Types (CommsType(..))
import Aftok.HTML.Forms (commsSwitch, commsField)

Deletion in client/src/Aftok/Signup.purs at line 60 [23.1]
∅:D[24.5575] → [23.707:813]
∅:D[8.12530] → [23.707:813]
B:BD[23.707] → [23.707:813]
```
data RecoveryType
  = RecoveryEmail
  | RecoveryZAddr
derive instance recoveryTypeEq :: Eq RecoveryType
```
Replacement in client/src/Aftok/Signup.purs at line 65 [23.1]
B:BD[20.14604] → [20.14604:14639]
```
    , recoveryType :: RecoveryType
```
[20.14604]
[20.14639]
```
    , recoveryType :: CommsType
```
Replacement in client/src/Aftok/Signup.purs at line 77 [23.1]
B:BD[23.1166] → [23.1166:1199]
```
  | SetRecoveryType RecoveryType
```
[23.1166]
[23.1199]
```
  | SetRecoveryType CommsType
```
Replacement in client/src/Aftok/Signup.purs at line 121 [23.1]
B:BD[20.15598] → [20.15598:15632]
```
    , recoveryType: RecoveryEmail
```
[20.15598]
[20.15632]
```
    , recoveryType: EmailComms
```

Replacement in client/src/Aftok/Signup.purs at line 165 [23.1]

B:BD[8.13419] → [8.13419:13478]

                          <> signupErrors UsernameField st

[8.13419]

[20.17654]

                          <> signupErrors st UsernameField

Replacement in client/src/Aftok/Signup.purs at line 179 [23.1]

B:BD[8.14118] → [8.14118:14177]

                          <> signupErrors PasswordField st

[8.14118]

[8.14177]

                          <> signupErrors st PasswordField

Replacement in client/src/Aftok/Signup.purs at line 190 [23.1]

B:BD[8.14752] → [8.14752:14810]

∅:D[8.14810] → [20.18901:18997]

B:BD[20.18901] → [20.18901:18997]

                          <> signupErrors ConfirmField st
                      , recoverySwitch st.recoveryType
                      , recoveryField st

[8.14752]

[3.1838]

                          <> signupErrors st ConfirmField
                      , commsSwitch SetRecoveryType st.recoveryType
                      , commsField SetRecoveryEmail SetRecoveryZAddr st $
                          case _ of
                            EmailComms -> signupErrors st EmailField
                            ZcashComms -> signupErrors st ZAddrField

Replacement in client/src/Aftok/Signup.purs at line 207 [23.1]

B:BD[3.2493] → [3.2493:2552]

                        ] <> signupErrors InvCodesField st

[3.2493]

[20.18997]

                        ] <> signupErrors st InvCodesField

Replacement in client/src/Aftok/Signup.purs at line 232 [23.1]

B:BD[3.2709] → [3.2709:2824]

        H.modify_ (\st -> st { signupErrors = M.delete ZAddrField st.signupErrors, recoveryType = RecoveryZAddr })

[3.2709]

[3.2824]

        H.modify_ (\st -> st { signupErrors = M.delete ZAddrField st.signupErrors, recoveryType = ZcashComms })

Replacement in client/src/Aftok/Signup.purs at line 272 [23.1]

∅:D[8.15580] → [20.20758:20893]

B:BD[20.20758] → [20.20758:20893]

    SetRecoveryType t -> H.modify_ (_ { recoveryType = t })
    SetRecoveryEmail email -> H.modify_ (_ { recoveryEmail = Just email })

[8.15580]

[8.15581]

    SetRecoveryType t -> 
      H.modify_ (_ { recoveryType = t })
    SetRecoveryEmail email -> 
      H.modify_ (_ { recoveryEmail = Just email })

Replacement in client/src/Aftok/Signup.purs at line 289 [23.1]

B:BD[20.21767] → [20.21767:21987]

        RecoveryEmail -> V <<< note [ EmailRequired ] <<< map Acc.RecoverByEmail <$> H.gets (_.recoveryEmail)
        RecoveryZAddr -> V <<< note [ ZAddrRequired ] <<< map Acc.RecoverByZAddr <$> H.gets (_.recoveryZAddr)

[20.21767]

[20.21987]

        EmailComms -> V <<< note [ EmailRequired ] <<< map Acc.RecoverByEmail <$> H.gets (_.recoveryEmail)
        ZcashComms -> V <<< note [ ZAddrRequired ] <<< map Acc.RecoverByZAddr <$> H.gets (_.recoveryZAddr)

Replacement in client/src/Aftok/Signup.purs at line 333 [23.1]

B:BD[8.17219] → [8.17219:17360]

signupErrors :: forall i a. SignupField -> SignupState -> Array (HH.HTML i a)
signupErrors field st = case M.lookup field st.signupErrors of

[8.17219]

[8.17360]

signupErrors :: forall i a. SignupState -> SignupField -> Array (HH.HTML i a)
signupErrors st field = case M.lookup field st.signupErrors of

Deletion in client/src/Aftok/Signup.purs at line 348 [23.1]

B:BD[23.6158] → [23.6158:6225]

B:BD[23.6225] → [20.23216:23236]

∅:D[20.23236] → [23.6246:6255]

B:BD[23.6246] → [23.6246:6255]

B:BD[23.6255] → [20.23237:23393]

∅:D[20.23393] → [23.6407:6420]

B:BD[23.6407] → [23.6407:6420]

B:BD[23.6420] → [20.23394:23670]

B:BD[20.23670] → [8.18015:18049]

∅:D[8.18049] → [20.23702:24007]

B:BD[20.23702] → [20.23702:24007]

B:BD[20.24007] → [3.3753:3803]

∅:D[3.3803] → [20.24007:24415]

B:BD[20.24007] → [20.24007:24415]

∅:D[25.1257] → [23.7015:7025]

∅:D[20.24415] → [23.7015:7025]

B:BD[23.7015] → [23.7015:7025]

B:BD[23.7184] → [23.7184:7299]

B:BD[23.7299] → [20.24416:24446]

∅:D[20.24446] → [23.7331:7363]

B:BD[23.7331] → [23.7331:7363]

B:BD[23.7363] → [8.18050:18474]

∅:D[8.18474] → [23.7716:7735]

B:BD[23.7716] → [23.7716:7735]

B:BD[23.7735] → [20.24745:24756]

∅:D[20.24756] → [23.7747:7779]

B:BD[23.7747] → [23.7747:7779]

B:BD[23.7779] → [8.18475:19204]

∅:D[8.19204] → [27.2735:2736]

B:BD[23.8397] → [27.2735:2736]

recoverySwitch :: forall i. RecoveryType -> HH.HTML i SignupAction
recoverySwitch rt =
  HH.div
    [ P.classes (ClassName <$> [ "form-group", "mb-3" ]) ]
    [ HH.label
        [ P.for "recoverySwitch" ]
        [ HH.text "Choose a recovery method" ]
    , HH.div
        [ P.classes (ClassName <$> [ "form-group", "mb-3" ])
        , CSS.style do
            display flex
            flexFlow row nowrap
        ]
        [ HH.span
            [ P.classes (ClassName <$> [ if rt == RecoveryEmail then "text-success" else "text-muted" ]) ]
            $ [ HH.text "Email" ]
        , HH.div
            [ P.classes (ClassName <$> [ "custom-control", "custom-switch", "custom-switch-light", "mx-3" ]) ]
            [ HH.input
                [ P.type_ P.InputCheckbox
                , P.classes (ClassName <$> [ "custom-control-input" ])
                , P.id_ "recoverySwitch"
                , P.checked (rt == RecoveryZAddr)
                , E.onChecked (\b -> Just <<< SetRecoveryType $ if b then RecoveryZAddr else RecoveryEmail)
                ]
            , HH.label [ P.classes (ClassName <$> [ "custom-control-label" ]), P.for "recoverySwitch" ] []
            ]
        , HH.span
            [ P.classes (ClassName <$> [ if rt == RecoveryZAddr then "text-success" else "text-muted" ]) ]
            [ HH.text "Z-Address" ]
        ]
    ]
recoveryField :: forall i. SignupState -> HH.HTML i SignupAction
recoveryField st = case st.recoveryType of
  RecoveryEmail ->
    HH.div
      [ P.id_ "recoveryEmail" ]
      $ [ HH.label [ P.for "email" ] [ HH.text "Email Address" ]
        , HH.input
            [ P.type_ P.InputEmail
            , P.classes (ClassName <$> [ "form-control" ])
            , P.id_ "email"
            , P.placeholder "name@address.com"
            , P.value (fromMaybe "" st.recoveryEmail)
            , E.onValueInput (Just <<< SetRecoveryEmail)
            ]
        ]
      <> signupErrors EmailField st
  RecoveryZAddr ->
    HH.div
      [ P.id_ "recoveryZAddr" ]
      $ [ HH.label
            [ P.for "zaddr" ]
            [ HH.text "Zcash Shielded Address"
            , HH.a
                [ P.attr (AttrName "data-toggle") "modal"
                , P.href "#modalAboutZAddr"
                ]
                [ HH.img [ P.src "/assets/img/icons/duotone-icons/Code/Info-circle.svg" ]
                ]
            ]
        , HH.input
            [ P.type_ P.InputText
            , P.classes (ClassName <$> [ "form-control" ])
            , P.id_ "email"
            , P.placeholder "Enter a Zcash shielded address"
            , P.value (fromMaybe "" st.recoveryZAddr)
            , E.onValueInput (Just <<< SetRecoveryZAddr)
            ]
        ]
      <> signupErrors ZAddrField st

Deletion in daemon/AftokD/AftokM.hs at line 26 [29.1458]
B:BD[28.1181] → [28.1181:1224]
```
import qualified Aftok.Payments.Types as P
```
Insertion in daemon/AftokD/AftokM.hs at line 27 [29.1458]
[30.527]
[31.1012]
```
import qualified Aftok.Payments.Types as P
```
Deletion in lib/Aftok/Config.hs at line 6 [29.10763]
B:BD[30.1218] → [30.1218:1253]
```
import Aftok.Project (projectName)
```

Replacement in lib/Aftok/Config.hs at line 8 [29.10763]

B:BD[30.1314] → [30.1314:1356]

B:BD[30.1356] → [11.14989:15034]

import Aftok.Currency.Zcash (Zatoshi(..))
import Aftok.Currency.Zcash.Types (Memo(..))

[30.1314]

[30.1356]

import Aftok.Currency.Zcash (Zatoshi (..))
import Aftok.Currency.Zcash.Types (Memo (..))

Replacement in lib/Aftok/Config.hs at line 11 [29.10763]
B:BD[30.1408] → [30.1408:1451]
```
import Aftok.Payments (PaymentsConfig(..))
```
[30.1408]
[28.6323]
```
import Aftok.Payments (PaymentsConfig (..))
```
Insertion in lib/Aftok/Config.hs at line 14 [29.10763]
[30.1499]
[11.15035]
```
import Aftok.Project (projectName)
```

Replacement in lib/Aftok/Config.hs at line 93 [29.10763]

B:BD[30.2382] → [30.2382:2467]

      { _bitcoinConfig :: BitcoinConfig
      , _zcashConfig :: Zcash.PaymentsConfig

[30.2382]

[30.2467]

      { _bitcoinConfig :: BitcoinConfig,
        _zcashConfig :: Zcash.PaymentsConfig

Replacement in lib/Aftok/Config.hs at line 141 [29.10763]

∅:D[11.15373] → [30.3273:3369]

B:BD[30.3273] → [30.3273:3369]

B:BD[30.3369] → [11.15374:15412]

∅:D[11.15412] → [30.3369:3419]

B:BD[30.3369] → [30.3369:3419]

  pure $ PaymentsConfig {
    _bitcoinBillingOps = btcOps,
    _bitcoinPaymentsConfig = btcCfg,
    _zcashBillingOps = _zcashMemoGen,
    _zcashPaymentsConfig = cfg ^. zcashConfig
  }

[11.15373]

[30.3419]

  pure $
    PaymentsConfig
      { _bitcoinBillingOps = btcOps,
        _bitcoinPaymentsConfig = btcCfg,
        _zcashBillingOps = _zcashMemoGen,
        _zcashPaymentsConfig = cfg ^. zcashConfig
      }

Deletion in lib/Aftok/Config.hs at line 180 [29.10763]
B:BD[11.15732] → [11.15732:15733]
Deletion in lib/Aftok/Config.hs at line 188 [29.10763]
B:BD[30.4131] → [30.4131:4132]
Replacement in lib/Aftok/Config.hs at line 194 [29.10763]
B:BD[30.4274] → [30.4274:4314]
```
  Bitcoin.PaymentKey
  -> m (Maybe URI)
```
[30.4274]
[30.4314]
```
  Bitcoin.PaymentKey ->
  m (Maybe URI)
```
Deletion in lib/Aftok/Config.hs at line 199 [29.10763]
B:BD[30.4481] → [11.15735:15736]
Insertion in lib/Aftok/Currency/Zcash.hs at line 15 [33.428]
[32.1786]
[31.11323]
```
    Z.Memo (..),
```
Replacement in lib/Aftok/Payments/Util.hs at line 20 [28.79668]
B:BD[28.80100] → [11.16754:16796]
```
import Aftok.Types (ProjectId, AccountId)
```
[28.80100]
[28.80131]
```
import Aftok.Types (AccountId, ProjectId)
```
Replacement in lib/Aftok/Payments/Zcash.hs at line 13 [28.82616]
B:BD[28.82853] → [11.16909:16954]
```
import Aftok.Currency.Zcash.Types (Memo(..))
```
[28.82853]
[28.82853]
```
import Aftok.Currency.Zcash.Types (Memo (..))
```

Replacement in lib/Aftok/Payments/Zcash.hs at line 75 [28.82616]

B:BD[11.18117] → [11.18117:18142]

∅:D[11.18142] → [28.84386:84507]

B:BD[28.84386] → [28.84386:84507]

B:BD[28.84507] → [11.18143:18167]

∅:D[11.18167] → [28.84597:84629]

B:BD[28.84597] → [28.84597:84629]

      pure $ PaymentItem
        { _address = a,
          _label = Nothing,
          _message = billable ^. messageText,
          _amount = z,
          _memo = memo,
          _other = []
        }

[11.18117]

      pure $
        PaymentItem
          { _address = a,
            _label = Nothing,
            _message = billable ^. messageText,
            _amount = z,
            _memo = memo,
            _other = []
          }

Deletion in server/Aftok/ServerConfig.hs at line 27 [34.4500]
∅:D[30.6910] → [34.4838:4839]
∅:D[35.7028] → [34.4838:4839]
∅:D[31.56477] → [34.4838:4839]
B:BD[34.4838] → [34.4838:4839]
Deletion in server/Aftok/Snaplet/Billing.hs at line 25 [29.33730]
B:BD[28.100419] → [30.7461:7516]
B:BD[30.7516] → [11.18318:18358]
```
import qualified Aftok.Currency.Zcash.Zip321 as Zip321
import Aftok.Database.PostgreSQL (QDBM)
```
Insertion in server/Aftok/Snaplet/Billing.hs at line 31 [29.33730]
[31.60244]
[30.7531]
```
import Aftok.Database.PostgreSQL (QDBM)
```
Insertion in server/Aftok/Snaplet/Billing.hs at line 48 [29.33730]
[13.16743]
[13.16743]
```
    zcashBillingOps,
```
Deletion in server/Aftok/Snaplet/Billing.hs at line 50 [29.33730]
B:BD[13.16768] → [11.18359:18379]
```
    zcashBillingOps
```
Deletion in server/Aftok/Snaplet/Billing.hs at line 56 [29.33730]
B:BD[30.7788] → [30.7788:7807]
```
    nativeRequest,
```
Insertion in server/Aftok/Snaplet/Billing.hs at line 57 [29.33730]
[30.7822]
[13.16830]
```
    nativeRequest,
```
Insertion in server/Aftok/Snaplet/Billing.hs at line 62 [29.33730]
[13.16891]
[13.16891]
```
    qdbmEval,
```
Deletion in server/Aftok/Snaplet/Billing.hs at line 68 [29.33730]
B:BD[13.16978] → [11.18380:18393]
```
    qdbmEval
```
Insertion in server/Aftok/Snaplet/Billing.hs at line 70 [29.33730]
[13.17024]
[13.17024]
```
import Aftok.Snaplet.Json (zip321PaymentRequestJSON)
```

Deletion in server/Aftok/Snaplet/Billing.hs at line 201 [29.33730]

B:BD[36.26297] → [30.9212:9368]

zip321PaymentRequestJSON :: Zip321.PaymentRequest -> Value
zip321PaymentRequestJSON r =
  v1 . obj $
    ["zip321_request" .= (toJSON . Zip321.toURI $ r)]

Insertion in server/Aftok/Snaplet/Json.hs at line 3 [36.27112]
[36.27151]
[36.27151]
```
    zip321PaymentRequestJSON,
```
Insertion in server/Aftok/Snaplet/Json.hs at line 7 [36.27112]
[36.27162]
[36.27162]
```
import qualified Aftok.Currency.Zcash.Zip321 as Zip321
```
Replacement in server/Aftok/Snaplet/Json.hs at line 10 [36.27112]
B:BD[36.27228] → [36.27228:27260]
```
import Data.Aeson ((.=), Value)
```
[36.27228]
[36.27260]
```
import Data.Aeson ((.=), Value, toJSON)
```

Insertion in server/Aftok/Snaplet/Json.hs at line 15 [36.27112]

[36.27384]


zip321PaymentRequestJSON :: Zip321.PaymentRequest -> Value
zip321PaymentRequestJSON r =
  v1 . obj $
    ["zip321_request" .= (toJSON . Zip321.toURI $ r)]

Insertion in server/Aftok/Snaplet/Projects.hs at line 18 [38.2363]
[8.24590]
[37.52743]
```
    projectInviteResponseJSON,
```

Insertion in server/Aftok/Snaplet/Projects.hs at line 23 [38.2363]

[31.63481]

import qualified Aftok.Currency.Zcash as Zcash
import qualified Aftok.Currency.Zcash.Zip321 as Zip321

Insertion in server/Aftok/Snaplet/Projects.hs at line 31 [38.2363]
[31.63598]
[8.24659]
```
import Aftok.Snaplet.Json (zip321PaymentRequestJSON)
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 47 [38.2363]
B:BD[39.1468] → [39.1468:1519]
∅:D[39.1519] → [31.63786:63837]
B:BD[31.63786] → [31.63786:63837]
```
import Data.Aeson ((.:), (.=), Value (..), object)
import Data.Attoparsec.ByteString (takeByteString)
```
[39.1468]
[8.24840]
```
import Data.Aeson ((.:), (.:?), (.=), Value (..), object)
```

Insertion in server/Aftok/Snaplet/Projects.hs at line 153 [38.2363]

[40.1816]

[41.8936]


data CommsAddress
  = EmailComms Text
  | ZcashComms Text
data ProjectInviteRequest
  = PIR
      { greetName :: Text,
        message :: Maybe Text,
        inviteBy :: CommsAddress
      }

Replacement in server/Aftok/Snaplet/Projects.hs at line 165 [38.2363]

B:BD[41.8937] → [30.9484:9545]

projectInviteHandler :: ServerConfig -> S.Handler App App ()

[41.8937]

[41.8991]

instance A.FromJSON ProjectInviteRequest where
  parseJSON (A.Object v) = do
    name <- v .: "greetName"
    message <- v .:? "message"
    comms <- v .: "inviteBy"
    emailComms <- fmap EmailComms <$> (comms .:? "email")
    zcashComms <- fmap ZcashComms <$> (comms .:? "zaddr")
    case emailComms <|> zcashComms of
      Nothing -> mzero
      Just addr -> pure $ PIR name message addr
  parseJSON _ = mzero
data ProjectInviteResponse
  = ProjectInviteResponse
      { zip321URI :: Maybe Zip321.PaymentRequest
      }
projectInviteResponseJSON :: ProjectInviteResponse -> Value
projectInviteResponseJSON resp =
  case zip321URI resp of
    Just r -> zip321PaymentRequestJSON r
    Nothing -> object []
projectInviteHandler :: ServerConfig -> S.Handler App App ProjectInviteResponse

Replacement in server/Aftok/Snaplet/Projects.hs at line 192 [38.2363]
∅:D[42.4242] → [41.9070:9145]
∅:D[24.9718] → [41.9070:9145]
∅:D[37.53951] → [41.9070:9145]
∅:D[31.64472] → [41.9070:9145]
B:BD[41.9070] → [41.9070:9145]
```
  toEmail <- parseParam "email" (fmap (Email . decodeUtf8) takeByteString)
```
[31.64472]
[31.64473]
```
  requestBody <- readRequestBody 4096
  req <- either (snapError 400 . show) pure $ A.eitherDecode requestBody
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 195 [38.2363]

∅:D[31.64504] → [42.4298:4321]

B:BD[42.4298] → [42.4298:4321]

B:BD[42.4321] → [31.64505:64762]

  (Just p, invCode) <-
    snapEval $
      (,)
        <$> (runMaybeT $ findUserProject uid pid)
        <*> createInvitation pid uid toEmail t
  liftIO $
    sendProjectInviteEmail
      cfg
      (p ^. projectName)
      (Email "noreply@aftok.com")
      toEmail
      invCode

[31.64504]

[43.989]

  let invite email =
        snapEval $
          (,)
            <$> (runMaybeT $ findUserProject uid pid)
            <*> createInvitation pid uid email t
  case inviteBy req of
    EmailComms email -> do
      (Just p, invCode) <- invite (Email email)
      liftIO $
        sendProjectInviteEmail
          cfg
          (p ^. projectName)
          (Email "noreply@aftok.com")
          (Email email)
          invCode
      pure (ProjectInviteResponse Nothing)
    ZcashComms zaddr -> do
      (Just p, invCode) <- invite (Email "")
      pure . ProjectInviteResponse . Just
        $ Zip321.PaymentRequest . pure
        $ Zip321.PaymentItem
          { _address = Zcash.Address zaddr,
            _amount = Zcash.Zatoshi 1000,
            _memo =
              Just . Zcash.Memo . encodeUtf8 $
                "Welcome to the " <> (p ^. projectName) <> " aftok, " <> greetName req <> "\n"
                  <> maybe "" (<> "\n") (message req)
                  <> "https://aftok.com/app/?invcode="
                  <> renderInvCode invCode
                  <> "&zaddr="
                  <> zaddr,
            _message = Nothing,
            _label = Nothing,
            _other = []
          }

Replacement in server/Main.hs at line 85 [44.5188]

B:BD[31.77089] → [31.77089:77224]

      inviteRoute = void $ method POST (projectInviteHandler cfg)
      acceptInviteRoute = void $ method POST acceptInvitationHandler

[31.77089]

[8.29295]

      inviteRoute =
        serveJSON (projectInviteResponseJSON) $ method POST (projectInviteHandler cfg)
      acceptInviteRoute =
        void $ method POST acceptInvitationHandler

Implement project invitations.

Dependencies

In channels

Change contents

Insertion in client/src/Aftok/Api/Project.purs at line 9 [5.2899]

Replacement in client/src/Aftok/Api/Project.purs at line 16 [5.2899]

Replacement in client/src/Aftok/Api/Project.purs at line 26 [5.2899]

Insertion in client/src/Aftok/Api/Project.purs at line 28 [5.2899]

Replacement in client/src/Aftok/Api/Project.purs at line 35 [5.2899]

Insertion in client/src/Aftok/Api/Project.purs at line 39 [5.2899]

Insertion in client/src/Aftok/Api/Project.purs at line 194 [5.2899]

Insertion in client/src/Aftok/Api/Types.purs at line 7 [5.5791]

Insertion in client/src/Aftok/Api/Types.purs at line 24 [5.5791]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 9 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 24 [12.11170]

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 27 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 202 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 205 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 210 [12.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 249 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 260 [12.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 271 [12.11170]

Replacement in client/src/Aftok/Billing.purs at line 28 [15.2755]

Insertion in client/src/Aftok/Billing.purs at line 35 [15.2755]

Replacement in client/src/Aftok/Billing.purs at line 230 [15.2755]

Deletion in client/src/Aftok/Billing.purs at line 232 [15.2755]

Replacement in client/src/Aftok/Billing.purs at line 233 [15.2755]

File addition: Forms.purs (----------)

Insertion in client/src/Aftok/Overview.purs at line 26 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 30 [17.91]

Replacement in client/src/Aftok/Overview.purs at line 32 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 59 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 66 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 71 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 76 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 168 [17.91]

Deletion in client/src/Aftok/Overview.purs at line 222 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 237 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 253 [17.91]

Insertion in client/src/Aftok/Overview.purs at line 282 [17.91]

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

File addition: Invite.purs (----------)

Deletion in client/src/Aftok/Signup.purs at line 18 [23.1]

Deletion in client/src/Aftok/Signup.purs at line 19 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 20 [23.1]

Deletion in client/src/Aftok/Signup.purs at line 22 [23.1]

Deletion in client/src/Aftok/Signup.purs at line 25 [23.1]

Insertion in client/src/Aftok/Signup.purs at line 30 [23.1]

Deletion in client/src/Aftok/Signup.purs at line 60 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 65 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 77 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 121 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 165 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 179 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 190 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 207 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 232 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 272 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 289 [23.1]

Replacement in client/src/Aftok/Signup.purs at line 333 [23.1]

Deletion in client/src/Aftok/Signup.purs at line 348 [23.1]

Deletion in daemon/AftokD/AftokM.hs at line 26 [29.1458]

Insertion in daemon/AftokD/AftokM.hs at line 27 [29.1458]

Deletion in lib/Aftok/Config.hs at line 6 [29.10763]

Replacement in lib/Aftok/Config.hs at line 8 [29.10763]

Replacement in lib/Aftok/Config.hs at line 11 [29.10763]

Insertion in lib/Aftok/Config.hs at line 14 [29.10763]

Replacement in lib/Aftok/Config.hs at line 93 [29.10763]

Replacement in lib/Aftok/Config.hs at line 141 [29.10763]

Deletion in lib/Aftok/Config.hs at line 180 [29.10763]

Deletion in lib/Aftok/Config.hs at line 188 [29.10763]

Replacement in lib/Aftok/Config.hs at line 194 [29.10763]

Deletion in lib/Aftok/Config.hs at line 199 [29.10763]

Insertion in lib/Aftok/Currency/Zcash.hs at line 15 [33.428]

Replacement in lib/Aftok/Payments/Util.hs at line 20 [28.79668]

Replacement in lib/Aftok/Payments/Zcash.hs at line 13 [28.82616]

Replacement in lib/Aftok/Payments/Zcash.hs at line 75 [28.82616]

Deletion in server/Aftok/ServerConfig.hs at line 27 [34.4500]

Deletion in server/Aftok/Snaplet/Billing.hs at line 25 [29.33730]

Insertion in server/Aftok/Snaplet/Billing.hs at line 31 [29.33730]