nuttycom/aftok - Change XGMFJUERL5G2AX5H3UY27YAAUNO27BH36WM2PGMGXDZAVURWNVBAC

Fix the broken modals.

Created by Kris Nuttycombe on February 12, 2021

XGMFJUERL5G2AX5H3UY27YAAUNO27BH36WM2PGMGXDZAVURWNVBAC

Dependencies

In channels

main

Change contents

File deletion: Modals.purs

BF:BFD[4.1] → [5.6394:6429]

BF:BFD[5.6429] → [5.4525:4525]

B:BD[5.4525] → [5.4526:4583]

∅:D[6.3215] → [5.4583:4635]

B:BD[5.4583] → [5.4583:4635]

∅:D[6.3236] → [5.4635:4661]

B:BD[5.4635] → [5.4635:4661]

∅:D[6.3269] → [5.4661:4809]

B:BD[5.4661] → [5.4661:4809]

B:BD[5.4809] → [7.13355:13493]

∅:D[7.13493] → [5.4894:5037]

B:BD[5.4894] → [5.4894:5037]

B:BD[5.5037] → [7.13494:13525]

∅:D[7.13525] → [5.5037:5065]

B:BD[5.5037] → [5.5037:5065]

B:BD[5.5065] → [7.13526:13592]

∅:D[7.13592] → [6.3332:3344]

B:BD[6.3332] → [6.3332:3344]

B:BD[6.3344] → [7.13593:13637]

∅:D[7.13637] → [6.3389:3422]

B:BD[6.3389] → [6.3389:3422]

B:BD[6.3422] → [8.19368:19414]

∅:D[6.3460] → [5.5172:5804]

∅:D[8.19414] → [5.5172:5804]

B:BD[5.5172] → [5.5172:5804]

B:BD[5.5804] → [8.19415:19474]

∅:D[8.19474] → [5.5868:6305]

B:BD[5.5868] → [5.5868:6305]

∅:D[6.3505] → [5.6305:6393]

B:BD[5.6305] → [5.6305:6393]

B:BD[5.6393] → [7.13638:13657]

B:BD[7.13657] → [9.1235:1260]

∅:D[9.1260] → [7.13671:13695]

B:BD[7.13671] → [7.13671:13695]

B:BD[7.13695] → [9.1261:1397]

∅:D[9.1397] → [7.13774:14751]

B:BD[7.13774] → [7.13774:14751]

∅:D[9.1442] → [7.14751:14833]

B:BD[7.14751] → [7.14751:14833]

B:BD[7.14751] → [9.1398:1442]

B:BD[5.6305] → [6.3461:3505]

B:BD[5.4661] → [6.3237:3269]

B:BD[5.4635] → [6.3216:3236]

B:BD[5.4583] → [6.3185:3215]

module Aftok.Modals where
import Prelude ((<>), negate)
import DOM.HTML.Indexed.ButtonType (ButtonType(..))
import Halogen.HTML as HH
import Halogen.HTML.Properties as P
import Halogen.HTML.Properties.ARIA as ARIA
import Aftok.HTML.Classes as C
import Aftok.HTML.Properties as AP
modalButton :: forall action slots m. String -> String -> Maybe action -> H.ComponentHTML action slots m
modalButton target text action =
  HH.button
    [ P.classes [ C.btn, C.btnPrimary ]
    , AP.dataToggle "modal"
    , AP.dataTarget ("#" <> target)
    , P.type_ ButtonButton
    , E.onClick (\_ -> action)
    ]
    [ HH.text text ]
modalWithSave ::
  forall action slots m.
  String ->
  String ->
  action ->
  Array (H.ComponentHTML action slots m) ->
  H.ComponentHTML action slots m
modalWithSave modalId title submit contents =
  HH.div
    [ P.classes [ C.modal ]
    , P.id_ modalId
    , P.tabIndex (negate 1)
    , ARIA.role "dialog"
    , ARIA.labelledBy (modalId <> "Title")
    , ARIA.hidden "true"
    ]
    [ HH.div
      [ P.classes [C.modalDialog], ARIA.role "document" ]
      [ HH.div
        [ P.classes [C.modalContent] ]
        [ HH.div
          [ P.classes [C.modalHeader] ]
          [ HH.h5 [P.classes [C.modalTitle], P.id_ (modalId <>"Title") ] [HH.text title]
          , HH.button
            [ P.classes [ C.close ]
            , AP.dataDismiss "modal"
            , ARIA.label "Close"
            , P.type_ ButtonButton
            ]
            [ HH.span [ARIA.hidden "true"] [HH.text "×"]]
          ]
        , HH.div
          [ P.classes [C.modalBody] ]
          contents
        , HH.div
          [ P.classes [C.modalFooter] ]
          [ HH.button
            [ P.type_ ButtonButton
            , P.classes [ C.btn, C.btnSecondary]
            , AP.dataDismiss "modal"
            ]
            [ HH.text "Close" ]
          , HH.button
            [ P.type_ ButtonButton
            , P.classes [ C.btn, C.btnPrimary ]
            ]
            [ HH.text "Save changes"]
          ]
        ]
      ]
    ]
modalWithClose ::
  forall action slots m.
  String ->
  String ->
  action ->
  Array (H.ComponentHTML action slots m) ->
  H.ComponentHTML action slots m
modalWithClose modalId title action contents =
  HH.div
    [ P.classes [ C.modal ]
    , P.id_ modalId
    , P.tabIndex (negate 1)
    , ARIA.role "dialog"
    , ARIA.labelledBy (modalId <> "Title")
    , ARIA.hidden "true"
    ]
    [ HH.div
      [ P.classes [C.modalDialog], ARIA.role "document" ]
      [ HH.div
        [ P.classes [C.modalContent] ]
        [ HH.div
          [ P.classes [C.modalHeader] ]
          [ HH.h5 [P.classes [C.modalTitle], P.id_ (modalId <>"Title") ] [HH.text title]
          , HH.button
            [ P.classes [ C.close ]
            , AP.dataDismiss "modal"
            , ARIA.label "Close"
            , P.type_ ButtonButton
            ]
            [ HH.span [ARIA.hidden "true"] [HH.text "×"]]
          ]
        , HH.div
          [ P.classes [C.modalBody] ]
          contents
        , HH.div
          [ P.classes [C.modalFooter] ]
          [ HH.button
            [ P.type_ ButtonButton
            , P.classes [ C.btn, C.btnSecondary]
            , AP.dataDismiss "modal"
            ]
            [ HH.text "Close" ]
          ]
        ]
      ]
    ]
            , E.onClick (\_ -> Just action)
            , E.onClick (\_ -> Just submit)
import Halogen.HTML.Events as E
import Halogen as H
import Data.Maybe (Maybe(..))

Deletion in client/src/Aftok/Billing/Create.purs at line 8 [10.475]
B:BD[2.155] → [2.155:185]
```
import Aftok.Modals as Modals
```
Insertion in client/src/Aftok/Billing/Create.purs at line 24 [10.475]
[10.850]
[10.921]
```
import DOM.HTML.Indexed.ButtonType (ButtonType(..))
```
Insertion in client/src/Aftok/Billing/Create.purs at line 30 [10.475]
[10.1076]
[8.860]
```
import Halogen.HTML.Properties.ARIA as ARIA
```
Replacement in client/src/Aftok/Billing/Create.purs at line 33 [10.475]
B:BD[8.872] → [8.872:886]
```
  = NameField
```
[8.872]
[8.886]
```
  = PidField
  | NameField
```
Replacement in client/src/Aftok/Billing/Create.purs at line 55 [10.475]
B:BD[10.1480] → [10.1480:1507]
```
  { projectId :: ProjectId
```
[10.1480]
[10.1507]
```
  { projectId :: Maybe ProjectId
```
Replacement in client/src/Aftok/Billing/Create.purs at line 67 [10.475]
B:BD[10.1780] → [10.1780:1803]
```
type Input = ProjectId
```
[10.1755]
[10.1803]
```
data Query a
  = OpenModal ProjectId a
```
Replacement in client/src/Aftok/Billing/Create.purs at line 70 [10.475]
B:BD[10.1804] → [10.1804:1844]
```
type Output = Tuple BillableId Billable
```
[10.1804]
[10.1844]
```
data Output 
  = BillableCreated BillableId
```
Replacement in client/src/Aftok/Billing/Create.purs at line 74 [10.475]
B:BD[10.1857] → [10.1857:1905]
```
  = ProjectChanged ProjectId
  | SetName String
```
[10.1857]
[10.1905]
```
  = SetName String
```
Replacement in client/src/Aftok/Billing/Create.purs at line 83 [10.475]
∅:D[8.1374] → [6.536:553]
B:BD[10.2035] → [6.536:553]
```
  | SaveBillable
```
[8.1374]
[10.2035]
```
  | Save
  | Close
```
Replacement in client/src/Aftok/Billing/Create.purs at line 87 [10.475]
B:BD[10.2049] → [9.5:46]
```
  = forall query. H.Slot query Output id
```
[10.2049]
[10.2076]
```
  = H.Slot Query Output id
```
Insertion in client/src/Aftok/Billing/Create.purs at line 92 [10.475]
[10.2199]
[10.2199]
```
modalId :: String
modalId = "createBillable"
```
Replacement in client/src/Aftok/Billing/Create.purs at line 97 [10.475]
B:BD[10.2213] → [9.47:65]
```
  forall query m.
```
[10.2213]
[10.2225]
```
  forall input m.
```
Replacement in client/src/Aftok/Billing/Create.purs at line 101 [10.475]
B:BD[10.2270] → [9.66:109]
```
  H.Component HH.HTML query Input Output m
```
[10.2270]
[10.2313]
```
  H.Component HH.HTML Query input Output m
```
Replacement in client/src/Aftok/Billing/Create.purs at line 104 [10.475]
B:BD[10.2353] → [10.2353:2372]
```
    { initialState
```
[10.2353]
[10.2372]
```
    { initialState: const initialState
```

Replacement in client/src/Aftok/Billing/Create.purs at line 106 [10.475]

B:BD[10.2385] → [10.2385:2542]

    , eval:
        H.mkEval
          $ H.defaultEval
              { handleAction = eval
              , receive = Just <<< ProjectChanged
              }

[10.2385]

[10.2542]

    , eval: H.mkEval
        $ H.defaultEval
            { handleAction = handleAction
            , handleQuery = handleQuery
            }

Replacement in client/src/Aftok/Billing/Create.purs at line 113 [10.475]

B:BD[10.2556] → [10.2556:2636]

  initialState :: Input -> CState
  initialState input =
    { projectId: input

[10.2556]

[10.2636]

  initialState :: CState
  initialState =
    { projectId: Nothing

Replacement in client/src/Aftok/Billing/Create.purs at line 128 [10.475]

B:BD[10.2927] → [10.2927:2941]

B:BD[10.2941] → [8.1433:1506]

∅:D[8.1506] → [6.619:636]

B:BD[6.619] → [6.619:636]

B:BD[6.636] → [8.1507:1554]

B:BD[8.1554] → [2.400:421]

∅:D[2.421] → [8.1555:1591]

B:BD[6.730] → [8.1555:1591]

B:BD[8.1591] → [2.422:461]

∅:D[2.461] → [6.861:882]

∅:D[8.1631] → [6.861:882]

B:BD[6.861] → [6.861:882]

∅:D[6.882] → [5.2067:2101]

B:BD[5.2067] → [5.2067:2101]

B:BD[5.2101] → [2.462:521]

∅:D[2.521] → [6.883:1003]

∅:D[8.1676] → [6.883:1003]

B:BD[5.2163] → [6.883:1003]

B:BD[5.2326] → [6.1004:1052]

  render st =
    Modals.modalWithSave "createBillable" "Create Billable" SaveBillable
      [ HH.form_
        [ formGroup st
          [ NameField ]
          [ HH.label
            [ P.for "billableName"]
            [ HH.text "Product Name" ]
          , HH.input
            [ P.type_ P.InputText
            , P.classes [ C.formControl, C.formControlSm ]
            , P.id_ "billableName"
            , P.placeholder "A name for the product or service you want to bill for"
            , E.onValueInput (Just <<< SetName)

[10.2927]

[5.2374]

  render st = 
    HH.div
      [ P.classes [ C.modal ]
      , P.id_ modalId
      , P.tabIndex (negate 1)
      , ARIA.role "dialog"
      , ARIA.labelledBy (modalId <> "Title")
      , ARIA.hidden "true"
      ]
      [ HH.div
        [ P.classes [C.modalDialog], ARIA.role "document" ]
        [ HH.div
          [ P.classes [C.modalContent] ]
          [ HH.div
            [ P.classes [C.modalHeader] ]
            [ HH.h5 [P.classes [C.modalTitle], P.id_ (modalId <>"Title") ] [HH.text "Create a new billable item"]
            , HH.button
              [ P.classes [ C.close ]
              , ARIA.label "Close"
              , P.type_ ButtonButton
              , E.onClick (\_ -> Just Close)
              ]
              [ HH.span [ARIA.hidden "true"] [HH.text "×"]]

Replacement in client/src/Aftok/Billing/Create.purs at line 152 [10.475]

B:BD[5.2388] → [2.522:534]

∅:D[2.534] → [8.1690:1737]

B:BD[8.1690] → [8.1690:1737]

B:BD[8.1737] → [2.535:556]

∅:D[2.556] → [8.1759:1797]

B:BD[8.1759] → [8.1759:1797]

B:BD[8.1797] → [2.557:605]

∅:D[2.605] → [6.1217:1274]

∅:D[8.1846] → [6.1217:1274]

B:BD[6.1217] → [6.1217:1274]

B:BD[6.1274] → [2.606:667]

∅:D[2.667] → [6.1338:1445]

∅:D[8.1893] → [6.1338:1445]

B:BD[6.1338] → [6.1338:1445]

B:BD[6.1510] → [6.1510:1576]

B:BD[6.1576] → [8.1894:1956]

B:BD[8.1956] → [2.668:689]

∅:D[2.689] → [8.1978:2015]

B:BD[8.1978] → [8.1978:2015]

B:BD[8.2015] → [2.690:751]

∅:D[2.751] → [6.1755:1812]

∅:D[8.2077] → [6.1755:1812]

B:BD[6.1755] → [6.1755:1812]

B:BD[6.1812] → [2.752:811]

∅:D[2.811] → [6.1876:1912]

B:BD[6.1876] → [6.1876:1912]

B:BD[6.1912] → [8.2078:2296]

B:BD[8.2296] → [2.812:1805]

          ]
        , formGroup st
          [ DescField ]
          [ HH.label
              [ P.for "billableDesc"]
              [ HH.text "Product Description" ]
          , HH.input
              [ P.type_ P.InputText
              , P.classes [ C.formControl, C.formControlSm ]
              , P.id_ "billableDesc"
              , P.placeholder "Description of the product or service"
              , E.onValueInput (Just <<< SetDesc)
              ]
          ]
        , formGroup st
          [ MessageField ]
          [ HH.label
              [ P.for "billableMsg"]
              [ HH.text "Message to be included with bill" ]
          , HH.input
              [ P.type_ P.InputText
              , P.classes [C.formControl, C.formControlSm]
              , P.id_ "billableMsg"
              , P.placeholder "Enter your message here"
              , E.onValueInput (Just <<< SetMessage)
              ]
          ]
        , formGroup st
          [MonthlyRecurrenceField, WeeklyRecurrenceField]
          [ formCheckGroup
              { id: "recurAnnual"
              , checked: (st.recurrenceType == RTAnnual)
              , labelClasses: []
              }
              (\_ -> Just (SetRecurrenceType RTAnnual))
              [ HH.text "Annual" ]
          , formCheckGroup
              { id: "recurMonthly"
              , checked: (st.recurrenceType == RTMonthly)
              , labelClasses: [C.formInline]
              }
              (\_ -> Just (SetRecurrenceType RTMonthly))
              [ HH.text "Every"
              , HH.input
                  [ P.type_ P.InputNumber
                  , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]
                  , P.value (if st.recurrenceType == RTMonthly
                                then maybe "" show st.recurrenceValue
                                else "")
                  , P.min 1.0
                  , P.max 12.0
                  , E.onValueInput (Just <<< SetRecurrenceMonths)

[5.2388]

[2.1805]

          , HH.div
            [ P.classes [C.modalBody] ]
            [ HH.form_
              [ formGroup st
                [ NameField ]
                [ HH.label
                  [ P.for "billableName"]
                  [ HH.text "Product Name" ]
                , HH.input
                  [ P.type_ P.InputText
                  , P.classes [ C.formControl, C.formControlSm ]
                  , P.id_ "billableName"
                  , P.placeholder "A name for the product or service you want to bill for"
                  , E.onValueInput (Just <<< SetName)

Replacement in client/src/Aftok/Billing/Create.purs at line 167 [10.475]

B:BD[2.1825] → [2.1825:2114]

∅:D[2.2114] → [8.2936:2999]

B:BD[8.2936] → [8.2936:2999]

B:BD[8.2999] → [2.2115:2210]

∅:D[2.2210] → [8.3824:4111]

B:BD[8.3824] → [8.3824:4111]

              , HH.text "Months"]
          , formCheckGroup
            { id: "recurWeekly"
            , checked: (st.recurrenceType == RTWeekly)
            , labelClasses: [C.formInline]
            }
            (\_ -> Just (SetRecurrenceType RTWeekly))
            [ HH.text "Every"
            , HH.input
                [ P.type_ P.InputNumber
                , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]
                , P.value (if st.recurrenceType == RTWeekly
                              then maybe "" show st.recurrenceValue
                              else "")
                , P.min 1.0
                , P.max 12.0
                , E.onValueInput (Just <<< SetRecurrenceWeeks)

[2.1825]

[2.2211]

                ]
              , formGroup st
                [ DescField ]
                [ HH.label
                    [ P.for "billableDesc"]
                    [ HH.text "Product Description" ]
                , HH.input
                    [ P.type_ P.InputText
                    , P.classes [ C.formControl, C.formControlSm ]
                    , P.id_ "billableDesc"
                    , P.placeholder "Description of the product or service"
                    , E.onValueInput (Just <<< SetDesc)
                    ]
                ]
              , formGroup st
                [ MessageField ]
                [ HH.label
                    [ P.for "billableMsg"]
                    [ HH.text "Message to be included with bill" ]
                , HH.input
                    [ P.type_ P.InputText
                    , P.classes [C.formControl, C.formControlSm]
                    , P.id_ "billableMsg"
                    , P.placeholder "Enter your message here"
                    , E.onValueInput (Just <<< SetMessage)
                    ]

Replacement in client/src/Aftok/Billing/Create.purs at line 194 [10.475]

B:BD[2.2229] → [2.2229:2259]

∅:D[2.2259] → [8.4491:4505]

B:BD[8.4491] → [8.4491:4505]

B:BD[8.4505] → [2.2260:2504]

∅:D[2.2504] → [8.4505:4564]

B:BD[8.4505] → [8.4505:4564]

B:BD[8.4564] → [2.2505:2526]

∅:D[2.2526] → [8.4586:4626]

B:BD[8.4586] → [8.4586:4626]

B:BD[8.4626] → [2.2527:2562]

∅:D[2.2562] → [8.5001:5020]

B:BD[6.2113] → [8.5001:5020]

B:BD[8.5020] → [2.2563:3011]

            , HH.text "Weeks"
            ]
          , formCheckGroup
            { id: "oneTime"
            , checked: st.recurrenceType == RTOneTime
            , labelClasses: []
            }
            (\_ -> Just (SetRecurrenceType RTOneTime))
            [ HH.text "One-Time" ]
          ]
        , formGroup st
          [AmountField]
          [ HH.label
              [ P.for "billableAmount"]
              [ HH.text "Amount" ]
          , HH.div
          [ P.classes [ ClassName "input-group", ClassName "input-group-sm" ] ]
              [ HH.input
                  [ P.type_ P.InputNumber
                  , P.classes [ C.formControl ]
                  , P.id_ "billableAmount"
                  , P.value (maybe "" (Fixed.toString <<< unwrap) st.amount)
                  , P.placeholder "1.0"
                  , P.min 0.0
                  , E.onValueInput (Just <<< SetBillingAmount)

[2.2229]

[2.3011]

              , formGroup st
                [MonthlyRecurrenceField, WeeklyRecurrenceField]
                [ formCheckGroup
                    { id: "recurAnnual"
                    , checked: (st.recurrenceType == RTAnnual)
                    , labelClasses: []
                    }
                    (\_ -> Just (SetRecurrenceType RTAnnual))
                    [ HH.text "Annual" ]
                , formCheckGroup
                    { id: "recurMonthly"
                    , checked: (st.recurrenceType == RTMonthly)
                    , labelClasses: [C.formInline]
                    }
                    (\_ -> Just (SetRecurrenceType RTMonthly))
                    [ HH.text "Every"
                    , HH.input
                        [ P.type_ P.InputNumber
                        , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]
                        , P.value (if st.recurrenceType == RTMonthly
                                      then maybe "" show st.recurrenceValue
                                      else "")
                        , P.min 1.0
                        , P.max 12.0
                        , E.onValueInput (Just <<< SetRecurrenceMonths)
                        ]
                    , HH.text "Months"]
                , formCheckGroup
                  { id: "recurWeekly"
                  , checked: (st.recurrenceType == RTWeekly)
                  , labelClasses: [C.formInline]
                  }
                  (\_ -> Just (SetRecurrenceType RTWeekly))
                  [ HH.text "Every"
                  , HH.input
                      [ P.type_ P.InputNumber
                      , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]
                      , P.value (if st.recurrenceType == RTWeekly
                                    then maybe "" show st.recurrenceValue
                                    else "")
                      , P.min 1.0
                      , P.max 12.0
                      , E.onValueInput (Just <<< SetRecurrenceWeeks)
                      ]
                  , HH.text "Weeks"

Replacement in client/src/Aftok/Billing/Create.purs at line 240 [10.475]

B:BD[2.3031] → [2.3031:3297]

              , HH.div
                [ P.classes [ ClassName "input-group-append"] ]
                [ HH.span
                    [ P.classes [ ClassName "input-group-text" ]
                    , P.style "height: auto;" -- fix bad calculated height from LandKit

[2.3031]

[2.3297]

                , formCheckGroup
                  { id: "oneTime"
                  , checked: st.recurrenceType == RTOneTime
                  , labelClasses: []
                  }
                  (\_ -> Just (SetRecurrenceType RTOneTime))
                  [ HH.text "One-Time" ]
                ]
              , formGroup st
                [AmountField]
                [ HH.label
                    [ P.for "billableAmount"]
                    [ HH.text "Amount" ]
                , HH.div
                [ P.classes [ ClassName "input-group", ClassName "input-group-sm" ] ]
                    [ HH.input
                        [ P.type_ P.InputNumber
                        , P.classes [ C.formControl ]
                        , P.id_ "billableAmount"
                        , P.value (maybe "" (Fixed.toString <<< unwrap) st.amount)
                        , P.placeholder "1.0"
                        , P.min 0.0
                        , E.onValueInput (Just <<< SetBillingAmount)
                        ]
                    , HH.div
                      [ P.classes [ ClassName "input-group-append"] ]
                      [ HH.span
                          [ P.classes [ ClassName "input-group-text" ]
                          , P.style "height: auto;" -- fix bad calculated height from LandKit
                          ]
                          [ HH.text "ZEC" ] ]

Replacement in client/src/Aftok/Billing/Create.purs at line 272 [10.475]

B:BD[2.3319] → [2.3319:3359]

                    [ HH.text "ZEC" ] ]

[2.3319]

[2.3359]

                ]
              , formGroup  st
                [GracePeriodField]
                [ HH.label
                    [ P.for "gracePeriod"]
                    [ HH.text "Grace Period (Days)" ]
                , HH.input
                    [ P.type_ P.InputNumber
                    , P.id_ "gracePeriod"
                    , P.classes [ C.formControl, C.formControlSm ]
                    , P.value (maybe "" (Number.toString <<< unwrap) st.gracePeriod)
                    , P.placeholder "Days until a bill is considered overdue"
                    , P.min 0.0
                    , E.onValueInput (Just <<< SetGracePeriod)
                    ]
                ]
              , formGroup st
                [RequestExpiryField]
                [ HH.label
                    [ P.for "requestExpiry"]
                    [ HH.text "Request Expiry Period (Hours)" ]
                , HH.input
                    [ P.type_ P.InputNumber
                    , P.id_ "gracePeriod"
                    , P.classes [ C.formControl, C.formControlSm ]
                    , P.value (maybe "" (Number.toString <<< unwrap) st.requestExpiry)
                    , P.placeholder "Hours until a payment request expires"
                    , P.min 0.0
                    , E.onValueInput (Just <<< SetRequestExpiry)
                    ]
                ]

Replacement in client/src/Aftok/Billing/Create.purs at line 304 [10.475]

∅:D[2.3375] → [6.2113:2125]

∅:D[8.5174] → [6.2113:2125]

B:BD[6.2113] → [6.2113:2125]

B:BD[6.2125] → [8.5175:5228]

B:BD[8.5228] → [2.3376:3397]

∅:D[2.3397] → [8.5250:5287]

B:BD[8.5250] → [8.5250:5287]

B:BD[8.5287] → [2.3398:3446]

∅:D[11.1109] → [8.5337:5432]

∅:D[2.3446] → [8.5337:5432]

B:BD[8.5337] → [8.5337:5432]

B:BD[8.5432] → [2.3447:3508]

∅:D[2.3508] → [8.5478:5557]

B:BD[8.5478] → [8.5478:5557]

B:BD[8.5557] → [11.1110:1182]

∅:D[11.1182] → [8.5630:5713]

B:BD[8.5630] → [8.5630:5713]

          ]
        , formGroup  st
          [GracePeriodField]
          [ HH.label
              [ P.for "gracePeriod"]
              [ HH.text "Grace Period (Days)" ]
          , HH.input
              [ P.type_ P.InputNumber
              , P.id_ "gracePeriod"
              , P.classes [ C.formControl, C.formControlSm ]
              , P.value (maybe "" (Number.toString <<< unwrap) st.gracePeriod)
              , P.placeholder "Days until a bill is considered overdue"
              , P.min 0.0
              , E.onValueInput (Just <<< SetGracePeriod)

[2.3375]

[2.3509]

              , formGroup st [PidField] []
            ]
          , HH.div
            [ P.classes [C.modalFooter] ]
            [ HH.button
              [ P.type_ ButtonButton
              , P.classes [ C.btn, C.btnSecondary]
              , E.onClick (\_ -> Just Close)

Replacement in client/src/Aftok/Billing/Create.purs at line 313 [10.475]

∅:D[2.3525] → [8.5730:5796]

B:BD[8.5730] → [8.5730:5796]

B:BD[8.5796] → [2.3526:3547]

∅:D[2.3547] → [8.5818:5857]

B:BD[8.5818] → [8.5818:5857]

B:BD[8.5857] → [2.3548:3606]

∅:D[2.3606] → [8.5916:6011]

B:BD[8.5916] → [8.5916:6011]

B:BD[8.6011] → [2.3607:3668]

∅:D[2.3668] → [8.6057:6293]

B:BD[8.6057] → [8.6057:6293]

          ]
        , formGroup st
          [RequestExpiryField]
          [ HH.label
              [ P.for "requestExpiry"]
              [ HH.text "Request Expiry Period (Hours)" ]
          , HH.input
              [ P.type_ P.InputNumber
              , P.id_ "gracePeriod"
              , P.classes [ C.formControl, C.formControlSm ]
              , P.value (maybe "" (Number.toString <<< unwrap) st.requestExpiry)
              , P.placeholder "Hours until a payment request expires"
              , P.min 0.0
              , E.onValueInput (Just <<< SetRequestExpiry)

[2.3525]

[2.3669]

              [ HH.text "Close" ]
            , HH.button
              [ P.type_ ButtonButton
              , P.classes [ C.btn, C.btnPrimary ]
              , E.onClick (\_ -> Just Save)

Insertion in client/src/Aftok/Billing/Create.purs at line 319 [10.475]
[2.3685]
[8.6310]
```
              [ HH.text "Create billable"]
            ]
```

Replacement in client/src/Aftok/Billing/Create.purs at line 324 [10.475]

B:BD[10.4021] → [2.3686:3687]

[10.4021]

[2.3687]

 
  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))

Replacement in client/src/Aftok/Billing/Create.purs at line 354 [10.475]
∅:D[2.4367] → [5.2389:2390]
B:BD[10.4021] → [5.2389:2390]
B:BD[5.2390] → [8.6323:6410]
B:BD[8.6410] → [2.4368:4397]
∅:D[2.4397] → [8.6440:6484]
B:BD[8.6440] → [8.6440:6484]
B:BD[8.6484] → [2.4398:4440]
∅:D[5.2554] → [10.4021:4022]
∅:D[2.4440] → [10.4021:4022]
∅:D[8.6527] → [10.4021:4022]
B:BD[10.4021] → [10.4021:4022]
```
  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))
```
[2.4367]
[8.6528]
```
 
```

Insertion in client/src/Aftok/Billing/Create.purs at line 359 [10.475]

[8.6686]

            PidField -> err "No project id found; please report an error"

Replacement in client/src/Aftok/Billing/Create.purs at line 370 [10.475]

B:BD[8.7294] → [8.7294:7411]

    err str = [ HH.div_ [ HH.span [ P.classes (ClassName <$> [ "badge", "badge-danger-soft" ]) ] [ HH.text str ] ] ]

[8.7294]

[5.2555]

    err str = 
      [ HH.div_ 
        [ HH.span 
          [ P.classes (ClassName <$> [ "badge", "badge-danger-soft" ]) ] [ HH.text str ] ] 
      ]
  -- we use a query to initialize, since this is a modal that doesn't actually get unloaded.
  handleQuery :: forall slots a. Query a -> H.HalogenM CState Action slots Output m (Maybe a)
  handleQuery = case _ of
    OpenModal pid a -> do
      H.modify_ (\_ -> initialState { projectId = Just pid })
      lift $ system.toggleModal modalId ModalFFI.ShowModal
      pure (Just a)

Replacement in client/src/Aftok/Billing/Create.purs at line 384 [10.475]

∅:D[5.2556] → [10.4022:4190]

B:BD[10.4022] → [10.4022:4190]

  eval :: forall slots. Action -> H.HalogenM CState Action slots Output m Unit
  eval = case _ of
      ProjectChanged pid ->
        H.modify_ (_ { projectId = pid })

[5.2556]

[2.4505]

  handleAction :: forall slots. Action -> H.HalogenM CState Action slots Output m Unit
  handleAction = case _ of

Replacement in client/src/Aftok/Billing/Create.purs at line 420 [10.475]

B:BD[8.8941] → [8.8941:8966]

      SaveBillable -> do

[8.8941]

[8.8966]


      Save -> do
        pidV  <- V <<< note [PidField] <$> H.gets (_.projectId)

Replacement in client/src/Aftok/Billing/Create.purs at line 425 [10.475]

B:BD[8.9093] → [8.9093:9158]

        msgV <- V <<< note [MessageField] <$> H.gets (_.message)

[8.9093]

[8.9158]

        msgV  <- V <<< note [MessageField] <$> H.gets (_.message)

Replacement in client/src/Aftok/Billing/Create.purs at line 454 [10.475]

B:BD[8.10441] → [8.10441:10581]

B:BD[8.10625] → [8.10625:10665]

        case toEither reqV of
          Left errors -> do
            H.modify_ (_ { fieldErrors = errors })
          Right billable -> do
            pid <- H.gets (_.projectId)

[8.10441]

[8.10665]

        case toEither (Tuple <$> pidV <*> reqV) of
          Right (Tuple pid billable) -> do

Replacement in client/src/Aftok/Billing/Create.purs at line 459 [10.475]

B:BD[8.10778] → [8.10778:10901]

B:BD[8.10901] → [2.4756:4783]

                H.raise (Tuple bid billable)
                lift $ system.toggleModal "createBillable" ModalFFI.HideModal
              Left errs ->

[8.10778]

[8.10929]

                H.raise (BillableCreated bid)
                handleAction Close
              Left errs -> do

Insertion in client/src/Aftok/Billing/Create.purs at line 463 [10.475]

[8.10977]

          Left errors -> do
            H.modify_ (_ { fieldErrors = errors })
      Close -> do
        H.modify_ (const initialState) -- wipe the state for safety
        lift $ system.toggleModal modalId ModalFFI.HideModal

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 5 [8.11170]
B:BD[12.970] → [13.431:473]
```
-- import Control.Monad.State.Class (get)
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 8 [8.11170]
B:BD[9.152] → [3.1454:1483]
```
import Data.Newtype (unwrap)
```
[9.152]
[7.3584]
```
import Data.Symbol (SProxy(..))
```
Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 10 [8.11170]
B:BD[7.3614] → [9.153:189]
∅:D[9.189] → [13.513:541]
B:BD[13.513] → [13.513:541]
```
import Data.Traversable (traverse_)
import Data.Unfoldable as U
```
Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 12 [8.11170]
[12.1503]
[12.1574]
```
import DOM.HTML.Indexed.ButtonType (ButtonType(..))
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 18 [8.11170]

B:BD[12.1729] → [12.1729:1870]

import Aftok.Types (System, ProjectId)
import Aftok.HTML.Classes as C
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI

[12.1729]

[3.1484]

import Halogen.HTML.Properties.ARIA as ARIA

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 23 [8.11170]
[12.1948]
[7.3676]
```
  , PaymentRequest'(..)
```

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 28 [8.11170]

[12.2003]

[12.2288]

import Aftok.Components.Zip321QR as Zip321QR
import Aftok.HTML.Classes as C
import Aftok.Modals.ModalFFI as ModalFFI
import Aftok.Types (System, ProjectId)

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 34 [8.11170]
B:BD[7.3760] → [7.3760:3777]
```
  = NameRequired
```
[7.3760]
[7.3777]
```
  = PidFieldNotSet
```
Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 36 [8.11170]
[7.3798]
[12.2354]
```
  | NameRequired
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 42 [8.11170]
B:BD[12.2406] → [12.2406:2433]
```
  { projectId :: ProjectId
```
[12.2406]
[7.3884]
```
  { projectId :: Maybe ProjectId
```
Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 47 [8.11170]
[7.3956]
[12.2697]
```
  , mode :: Mode
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 50 [8.11170]
B:BD[12.2702] → [9.190:213]
```
type Input = ProjectId
```
[12.2702]
[12.2726]
```
data Mode 
  = Form
  | QrScan Zip321Request
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 55 [8.11170]
B:BD[9.228] → [9.228:288]
```
  = SetProjectId ProjectId a
  | SetBillableId BillableId a
```
[9.228]
[12.2750]
```
  = OpenModal ProjectId BillableId a
```
Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 57 [8.11170]
B:BD[12.2751] → [7.4084:4113]
∅:D[7.4113] → [12.2791:2792]
B:BD[12.2791] → [12.2791:2792]
```
type Output = PaymentRequest
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 58 [8.11170]
B:BD[12.2804] → [9.289:337]
```
  = ProjectChanged ProjectId
  | SetName String
```
[12.2804]
[12.2852]
```
  = SetName String
```
Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 61 [8.11170]
[7.4157]
[12.3081]
```
  | Close
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 64 [8.11170]

B:BD[12.3095] → [12.3095:3122]

  = H.Slot Query Output id

[12.3095]

[12.3122]

  = forall output. H.Slot Query output id
type Slots
  = ( requestQR :: Zip321QR.Slot Unit
    )
_requestQR = SProxy :: SProxy "requestQR"

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 84 [8.11170]
B:BD[12.3259] → [12.3259:3271]
```
  forall m.
```
[12.3259]
[12.3271]
```
  forall input output m.
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 88 [8.11170]
B:BD[12.3316] → [12.3316:3359]
```
  H.Component HH.HTML Query Input Output m
```
[12.3316]
[12.3359]
```
  H.Component HH.HTML Query input output m
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 91 [8.11170]
B:BD[12.3399] → [12.3399:3418]
```
    { initialState
```
[12.3399]
[12.3418]
```
    { initialState: const initialState
```
Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 98 [8.11170]
B:BD[7.4444] → [9.338:388]
```
              , receive = Just <<< ProjectChanged
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 101 [8.11170]

B:BD[12.3602] → [12.3602:3659]

B:BD[12.3659] → [9.389:412]

  initialState :: Input -> CState
  initialState input =
    { projectId: input

[12.3602]

[9.412]

  initialState :: CState
  initialState =
    { projectId: Nothing

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 105 [8.11170]
∅:D[9.438] → [12.3682:3731]
∅:D[7.4513] → [12.3682:3731]
B:BD[12.3682] → [12.3682:3731]
B:BD[12.3901] → [12.3901:3924]
```
    , name : Nothing
    , description : Nothing
    , fieldErrors : []
```
[9.438]
[12.3924]
```
    , name: Nothing
    , description: Nothing
    , fieldErrors: []
    , mode: Form
```
Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 111 [8.11170]
B:BD[8.19122] → [12.3931:3998]
```
  render :: forall slots. CState -> H.ComponentHTML Action slots m
```
[8.19122]
[12.3998]
```
  render :: CState -> H.ComponentHTML Action Slots m
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 113 [8.11170]

B:BD[12.4012] → [7.4514:4591]

∅:D[7.4591] → [12.4085:4125]

B:BD[12.4085] → [12.4085:4125]

B:BD[12.4125] → [7.4592:4714]

∅:D[7.4714] → [12.4247:4302]

B:BD[12.4247] → [12.4247:4302]

B:BD[12.4302] → [7.4715:4869]

B:BD[7.4869] → [9.439:484]

∅:D[9.484] → [12.4466:4514]

∅:D[7.4869] → [12.4466:4514]

B:BD[12.4466] → [12.4466:4514]

    Modals.modalWithSave modalId "Create Payment Request" SavePaymentRequest
      [ HH.form_
        [ formGroup st
          [ NameRequired ]
          [ HH.label
            [ P.for "requestName"]
            [ HH.text "Request Name" ]
          , HH.input
            [ P.type_ P.InputText
            , P.classes [ C.formControl, C.formControlSm ]
            , P.id_ "requestName"
            , P.placeholder "A name for the payment request"
            , P.value (fromMaybe "" st.name)
            , E.onValueInput (Just <<< SetName)

[12.4012]

[12.4514]

    HH.div
      [ P.classes [ C.modal ]
      , P.id_ modalId
      , P.tabIndex (negate 1)
      , ARIA.role "dialog"
      , ARIA.labelledBy (modalId <> "Title")
      , ARIA.hidden "true"
      ]
      [ HH.div
        [ P.classes [C.modalDialog], ARIA.role "document" ]
        [ HH.div
          [ P.classes [C.modalContent] ]
          [ HH.div
            [ P.classes [C.modalHeader] ]
            [ HH.h5 [P.classes [C.modalTitle], P.id_ (modalId <>"Title") ] [HH.text "Request a payment"]
            , HH.button
              [ P.classes [ C.close ]
              , ARIA.label "Close"
              , P.type_ ButtonButton
              , E.onClick (\_ -> Just Close)
              ]
              [ HH.span [ARIA.hidden "true"] [HH.text "×"]]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 136 [8.11170]

[12.4528]

[12.4973]

          , HH.div
            [ P.classes [C.modalBody] ]
            case st.mode of
              Form -> 
                [ requestForm st ]
              QrScan req -> 
                [ HH.slot _requestQR unit (Zip321QR.component system) req (const Nothing) ]
          , HH.div
            [ P.classes [C.modalFooter] ] $
            case st.mode of 
              Form -> 
                [ HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnSecondary]
                  , E.onClick (\_ -> Just Close)
                  ]
                  [ HH.text "Close" ]
                , HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnPrimary ]
                  , E.onClick (\_ -> Just SavePaymentRequest)
                  ]
                  [ HH.text "Create Request" ]
                ]
              QrScan _ -> 
                [ HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnPrimary]
                  , E.onClick (\_ -> Just Close)
                  ]
                  [ HH.text "Close" ]
                ]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 171 [8.11170]

B:BD[12.4985] → [12.4985:5008]

B:BD[12.5008] → [7.4870:4990]

∅:D[7.4990] → [12.5156:5213]

B:BD[12.5156] → [12.5156:5213]

B:BD[12.5213] → [7.4991:5155]

B:BD[7.5155] → [9.485:539]

∅:D[9.539] → [7.5155:5205]

B:BD[7.5155] → [7.5155:5205]

∅:D[7.5205] → [12.8171:8187]

B:BD[12.8171] → [12.8171:8187]

        , formGroup st
          [ ]
          [ HH.label
              [ P.for "requestDesc"]
              [ HH.text "Request Description" ]
          , HH.input
              [ P.type_ P.InputText
              , P.classes [ C.formControl, C.formControlSm ]
              , P.id_ "requestDesc"
              , P.placeholder "Additional descriptive information"
              , P.value (fromMaybe "" st.description)
              , E.onValueInput (Just <<< SetDesc)
              ]

[12.4985]

[12.8360]

        ]
      ]
      
  requestForm st = 
    HH.form_
      [ formGroup st
        [ NameRequired ]
        [ HH.label
          [ P.for "requestName"]
          [ HH.text "Request Name" ]
        , HH.input
          [ P.type_ P.InputText
          , P.classes [ C.formControl, C.formControlSm ]
          , P.id_ "requestName"
          , P.placeholder "A name for the payment request"
          , P.value (fromMaybe "" st.name)
          , E.onValueInput (Just <<< SetName)

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 190 [8.11170]

[12.8372]

[12.9517]

        ]
      , formGroup st
        [ ]
        [ HH.label
            [ P.for "requestDesc"]
            [ HH.text "Request Description" ]
        , HH.input
            [ P.type_ P.InputText
            , P.classes [ C.formControl, C.formControlSm ]
            , P.id_ "requestDesc"
            , P.placeholder "Additional descriptive information"
            , P.value (fromMaybe "" st.description)
            , E.onValueInput (Just <<< SetDesc)
            ]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 217 [8.11170]

[12.9899]

[7.5507]

            PidFieldNotSet -> err "The project id is missing. Close this dialog and try again."
            BillableIdNotSet -> err "The billable id is missing. Close this dialog and try again."

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 220 [8.11170]

B:BD[7.5568] → [7.5568:5667]

            BillableIdNotSet -> err "The billable id is missing. Close this dialog and try again."

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 224 [8.11170]

B:BD[12.10625] → [7.5668:5762]

  handleQuery :: forall slots a. Query a -> H.HalogenM CState Action slots Output m (Maybe a)

[12.10625]

[7.5762]

  handleQuery :: forall slots a. Query a -> H.HalogenM CState Action slots output m (Maybe a)

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 226 [8.11170]

B:BD[7.5788] → [9.540:691]

∅:D[9.691] → [7.5788:5864]

B:BD[7.5788] → [7.5788:5864]

    SetProjectId pid a -> do
      H.modify_ (_ { projectId = pid, billableId = Nothing, name = Nothing, description = Nothing })
      pure (Just a)
    SetBillableId bid a -> do
      H.modify_ (_ { billableId = Just bid })

[7.5788]

[7.5864]

    OpenModal pid bid a -> do
      H.modify_ (\_ -> initialState { projectId = Just pid, billableId = Just bid } )
      lift $ system.toggleModal modalId ModalFFI.ShowModal

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 231 [8.11170]

B:BD[12.13821] → [7.5885:5972]

  handleAction :: forall slots. Action -> H.HalogenM CState Action slots Output m Unit

[12.13821]

[7.5972]

  handleAction :: forall slots. Action -> H.HalogenM CState Action slots output m Unit

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 233 [8.11170]

B:BD[7.5999] → [9.692:819]

    ProjectChanged pid ->
      H.modify_ (_ { projectId = pid, billableId = Nothing, name = Nothing, description = Nothing })

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 238 [8.11170]
[7.6157]
[7.6157]
```
      pidV <- V <<< note [PidFieldNotSet] <$> H.gets (_.projectId)
```

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 243 [8.11170]

B:BD[7.6403] → [7.6403:6627]

          breqV = Tuple <$> bidV <*> reqV
      case toEither breqV of
        Left errors -> do
          H.modify_ (_ { fieldErrors = errors })
        Right (Tuple bid reqMeta) -> do
          pid <- H.gets (_.projectId)

[7.6403]

[7.6627]

      case toEither (Tuple <$> pidV <*> (Tuple <$> bidV <*> reqV)) of
        Right (Tuple pid (Tuple bid reqMeta)) -> do

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 247 [8.11170]

B:BD[7.6715] → [7.6715:6747]

B:BD[7.6798] → [7.6798:6828]

B:BD[7.6828] → [9.820:930]

∅:D[9.930] → [7.6828:6910]

B:BD[7.6828] → [7.6828:6910]

            Right content -> do
              H.raise content
              H.modify_ (_ { billableId = Nothing, name = Nothing, description = Nothing, fieldErrors = [] })
              lift $ system.toggleModal "createPaymentRequest" ModalFFI.HideModal

[7.6715]

[7.6910]

            Right (PaymentRequest req) -> do
              H.modify_ (_ { mode = QrScan $ Zip321Request req.native_request.zip321_request })

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 251 [8.11170]

[7.6981]

[12.14313]

        Left errors -> do
          H.modify_ (_ { fieldErrors = errors })
    Close -> do 
      H.modify_ (const initialState) -- wipe the state for safety
      lift $ system.toggleModal "createPaymentRequest" ModalFFI.HideModal

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 265 [8.11170]
B:BD[7.7090] → [7.7090:7092]
B:BD[7.7092] → [3.1542:1577]
∅:D[3.1577] → [13.578:595]
B:BD[13.578] → [13.578:595]
B:BD[13.595] → [3.1578:1609]
∅:D[3.1609] → [13.627:659]
B:BD[13.627] → [13.627:659]
```
type QrInput = Maybe Zip321Request
type QrState = 
  { req :: Maybe Zip321Request
  , dataUrl :: Maybe String
  }
```

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 266 [8.11170]

B:BD[7.7129] → [7.7129:7144]

B:BD[7.7144] → [3.1610:1639]

∅:D[3.1639] → [7.7174:7201]

B:BD[7.7174] → [7.7174:7201]

B:BD[7.7201] → [9.931:943]

∅:D[9.943] → [7.7201:7358]

B:BD[7.7201] → [7.7201:7358]

B:BD[7.7358] → [13.660:707]

∅:D[13.707] → [7.7420:7702]

B:BD[7.7420] → [7.7420:7702]

B:BD[7.7702] → [13.708:806]

∅:D[13.806] → [7.7794:7879]

B:BD[7.7794] → [7.7794:7879]

B:BD[7.7879] → [9.944:1006]

∅:D[9.1006] → [7.7933:7949]

B:BD[7.7933] → [7.7933:7949]

B:BD[7.7949] → [13.807:873]

B:BD[13.873] → [3.1640:1804]

∅:D[13.873] → [7.8010:8167]

∅:D[3.1804] → [7.8010:8167]

B:BD[7.8010] → [7.8010:8167]

B:BD[7.8167] → [13.874:909]

B:BD[13.909] → [3.1805:1866]

∅:D[13.956] → [7.8191:8304]

∅:D[3.1866] → [7.8191:8304]

B:BD[7.8191] → [7.8191:8304]

B:BD[7.8304] → [9.1007:1188]

∅:D[13.986] → [12.14504:14505]

∅:D[9.1188] → [12.14504:14505]

∅:D[7.8392] → [12.14504:14505]

B:BD[12.14504] → [12.14504:14505]

B:BD[12.14505] → [3.1867:1983]

data QrQuery a
  = QrRender Zip321Request a
data QrAction 
  = QrInit
  | QrClose
type QrSlot id
  = H.Slot QrQuery Unit id
qrModalId :: String
qrModalId = "paymentRequestQR"
qrcomponent ::
  forall m output.
  Monad m =>
  System m ->
  H.Component HH.HTML QrQuery QrInput output m
qrcomponent system =
  H.mkComponent
    { initialState
    , render
    , eval:
        H.mkEval 
          $ H.defaultEval
              { handleAction = handleAction
              , handleQuery = handleQuery
              , initialize = Just QrInit
              }
    }
  where
  initialState :: QrInput -> QrState
  initialState input = 
    { req: input, dataUrl: Nothing }
  render :: forall slots. QrState -> H.ComponentHTML QrAction slots m
  render st =
    Modals.modalWithClose qrModalId "Payment Request" QrClose
      [ HH.div_
        ((\url -> HH.img [P.src url]) <$> U.fromMaybe st.dataUrl)
      , HH.div_
        [ HH.span
            [ P.classes (ClassName <$> ["code", "zip321uri"]) ]
            (HH.text <<< unwrap <$> U.fromMaybe st.req)
        ]
      ]
  handleQuery :: forall slots a. QrQuery a -> H.HalogenM QrState QrAction slots output m (Maybe a)
  handleQuery = case _ of
    QrRender r a -> do
      dataUrl <- lift $ renderQR r
      H.modify_ (_ { req = Just r, dataUrl = Just dataUrl })
      pure (Just a)
  handleAction :: forall slots. QrAction -> H.HalogenM QrState QrAction slots output m Unit
  handleAction = case _ of
    QrInit -> do
      req <- H.gets (_.req)
      lift $ traverse_ renderQR req
    QrClose -> 
      H.modify_ (_ { req = Nothing, dataUrl = Nothing })
  renderQR :: Zip321Request -> m String
  renderQR (Zip321Request r) = 
    system.renderQR { value: r, size: 300 }

Replacement in client/src/Aftok/Billing.purs at line 28 [14.2755]
B:BD[14.3430] → [3.1985:2042]
```
import Aftok.Api.Types (APIError(..), Zip321Request(..))
```
[14.3430]
[14.3468]
```
import Aftok.Api.Types (APIError(..))
```
Deletion in client/src/Aftok/Billing.purs at line 35 [14.2755]
B:BD[14.3596] → [3.2043:2067]
```
  , PaymentRequest'(..)
```
Deletion in client/src/Aftok/Billing.purs at line 40 [14.2755]
∅:D[7.8672] → [5.2636:2666]
B:BD[14.3674] → [5.2636:2666]
B:BD[5.2666] → [7.8673:8714]
```
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI
```

Replacement in client/src/Aftok/Billing.purs at line 54 [14.2755]

B:BD[14.4022] → [10.4566:4614]

B:BD[10.4614] → [7.8759:8838]

  | BillableCreated (Tuple BillableId Billable)
  | CreatePaymentRequest BillableId
  | PaymentRequestCreated (PaymentRequest)

[14.4022]

  | OpenBillableModal ProjectId
  | BillableCreated BillableId
  | OpenPaymentRequestModal ProjectId BillableId

Deletion in client/src/Aftok/Billing.purs at line 65 [14.2755]
B:BD[12.14673] → [7.8839:8894]
```
    , showPaymentRequest :: PaymentRequest.QrSlot Unit
```
Deletion in client/src/Aftok/Billing.purs at line 70 [14.2755]
B:BD[12.14738] → [7.8895:8955]
```
_showPaymentRequest = SProxy :: SProxy "showPaymentRequest"
```

Replacement in client/src/Aftok/Billing.purs at line 128 [14.2755]

B:BD[10.4825] → [15.2724:2776]

                  [ renderBillableList st.billables

[10.4825]

[12.14739]

                  [ renderBillableList (unwrap p).projectId st.billables

Replacement in client/src/Aftok/Billing.purs at line 131 [14.2755]

B:BD[12.14833] → [7.9015:9100]

                    [ Modals.modalButton "createBillable" "Create billable" Nothing]

[12.14833]

[12.14911]

                    [ HH.button
                      [ P.classes [ C.btn, C.btnPrimary ]
                      , P.type_ ButtonButton
                      , E.onClick (\_ -> Just (OpenBillableModal (unwrap p).projectId))
                      ]
                      [ HH.text "Create billable" ]
                    ]

Replacement in client/src/Aftok/Billing.purs at line 142 [14.2755]
B:BD[12.15078] → [12.15078:15121]
```
                      (unwrap p).projectId
```
[12.15078]
[12.15121]
```
                      unit
```

Replacement in client/src/Aftok/Billing.purs at line 144 [14.2755]

B:BD[12.15151] → [12.15151:15200]

                      (Just <<< BillableCreated)

[12.15151]

[6.2223]

                      (\(Create.BillableCreated bid) -> Just (BillableCreated bid))

Deletion in client/src/Aftok/Billing.purs at line 149 [14.2755]

B:BD[7.9228] → [9.1190:1233]

∅:D[9.1233] → [6.2433:2463]

∅:D[7.9319] → [6.2433:2463]

B:BD[6.2433] → [6.2433:2463]

B:BD[6.2463] → [7.9320:9451]

                      (unwrap p).projectId
                      Nothing
                      (Just <<< PaymentRequestCreated)
                  , system.portal
                      _showPaymentRequest

Deletion in client/src/Aftok/Billing.purs at line 150 [14.2755]
B:BD[7.9478] → [7.9478:9536]
```
                      (PaymentRequest.qrcomponent system)
```
Deletion in client/src/Aftok/Billing.purs at line 151 [14.2755]
B:BD[7.9566] → [7.9566:9596]
```
                      Nothing
```

Replacement in client/src/Aftok/Billing.purs at line 158 [14.2755]

B:BD[14.6183] → [15.2851:2984]

  renderBillableList :: Array (Tuple BillableId Billable) -> H.ComponentHTML BillingAction Slots m
  renderBillableList billables =

[14.6183]

[15.2984]

  renderBillableList :: ProjectId -> Array (Tuple BillableId Billable) -> H.ComponentHTML BillingAction Slots m
  renderBillableList pid billables =

Replacement in client/src/Aftok/Billing.purs at line 188 [14.2755]

B:BD[7.9746] → [7.9746:9812]

              , E.onClick (\_ -> Just $ CreatePaymentRequest bid)

[7.9746]

[7.9812]

              , E.onClick (\_ -> Just $ OpenPaymentRequestModal pid bid)

Replacement in client/src/Aftok/Billing.purs at line 190 [14.2755]

B:BD[7.9828] → [7.9828:9876]

              [ HH.text "New Payment Request" ]

[7.9828]

[7.9876]

              [ HH.text "New payment request" ]

Insertion in client/src/Aftok/Billing.purs at line 215 [14.2755]

[14.7093]

[15.4049]


      OpenBillableModal pid -> do
        void $ H.query _createBillable unit $ H.tell (Create.OpenModal pid)

Replacement in client/src/Aftok/Billing.purs at line 223 [14.2755]

B:BD[7.9892] → [7.9892:9929]

B:BD[7.9983] → [7.9983:10152]

B:BD[7.10152] → [3.2068:2123]

∅:D[3.2123] → [7.10258:10334]

B:BD[7.10258] → [7.10258:10334]

B:BD[7.10390] → [7.10390:10468]

B:BD[7.10468] → [3.2124:2277]

∅:D[3.2277] → [7.10553:10571]

B:BD[7.10553] → [7.10553:10571]

      CreatePaymentRequest bid -> do
        _ <- H.query _createPaymentRequest unit $ H.tell (PaymentRequest.SetBillableId bid)
        lift $ system.toggleModal PaymentRequest.modalId ModalFFI.ShowModal
      PaymentRequestCreated (PaymentRequest req) -> do
        lift $ system.toggleModal PaymentRequest.modalId ModalFFI.HideModal
        lift $ system.toggleModal PaymentRequest.qrModalId ModalFFI.ShowModal
        let req' = Zip321Request req.native_request.zip321_request
        _ <- H.query _showPaymentRequest unit $ H.tell (PaymentRequest.QrRender req')
        pure unit

[7.9892]

[7.10571]

      OpenPaymentRequestModal pid bid -> do
        void $ H.query _createPaymentRequest unit $ H.tell (PaymentRequest.OpenModal pid bid)

File addition: Components (d--x------)
[4.1]

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

[0.16219]

module Aftok.Components.Zip321QR where
import Prelude
import Control.Monad.Trans.Class (lift)
import Data.Maybe (Maybe(..))
import Data.Newtype (unwrap)
import Data.Unfoldable as U
import Halogen as H
import Halogen.HTML.Core (ClassName(..))
import Halogen.HTML as HH
import Halogen.HTML.Properties as P
import Aftok.Types (System)
import Aftok.Api.Types (Zip321Request)
type Input = Zip321Request
type CState = 
  { req :: Zip321Request
  , dataUrl :: Maybe String
  }
data Action 
  = QrInit
type Slot id
  = forall query. H.Slot query Unit id
component ::
  forall m output query.
  Monad m =>
  System m ->
  H.Component HH.HTML query Input output m
component system =
  H.mkComponent
    { initialState
    , render
    , eval:
        H.mkEval 
          $ H.defaultEval
              { handleAction = handleAction
              , initialize = Just QrInit
              }
    }
  where
  initialState :: Input -> CState
  initialState input = 
    { req: input, dataUrl: Nothing }
  render :: forall slots. CState -> H.ComponentHTML Action slots m
  render st =
    HH.div_
      [ HH.div_
        ((\url -> HH.img [P.src url]) <$> U.fromMaybe st.dataUrl)
      , HH.div_
        [ HH.span
            [ P.classes (ClassName <$> ["code", "zip321uri"]) ]
            [HH.text <<< unwrap $ st.req]
        ]
      ]
  handleAction :: forall slots. Action -> H.HalogenM CState Action slots output m Unit
  handleAction = case _ of
    QrInit -> do
      req <- H.gets (_.req)
      uri <- lift $ system.renderQR { value: unwrap req, size: 300 }
      H.modify_ (_ { dataUrl = Just uri })

Replacement in client/src/Aftok/HTML/Forms.purs at line 15 [3.2279]

B:BD[3.2686] → [3.2686:2784]

  { recoveryType :: CommsType
  , recoveryEmail :: Maybe String
  , recoveryZAddr :: Maybe String

[3.2686]

[3.2784]

  { channel :: CommsType
  , email :: Maybe String
  , zaddr :: Maybe String

Replacement in client/src/Aftok/HTML/Forms.purs at line 66 [3.2279]

B:BD[3.4446] → [3.4446:4509]

commsField setEmail setZAddr st errs = case st.recoveryType of

[3.4446]

[3.4509]

commsField setEmail setZAddr st errs = case st.channel of

Replacement in client/src/Aftok/HTML/Forms.purs at line 68 [3.2279]

B:BD[3.4525] → [3.4525:4948]

    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)
            ]
        ]

[3.4525]

[3.4948]

    HH.div_ $ 
      [ 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.email)
          , E.onValueInput (Just <<< setEmail)
          ]
      ]

Replacement in client/src/Aftok/HTML/Forms.purs at line 81 [3.2279]

B:BD[3.4990] → [3.4990:5718]

    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)
            ]
        ]

[3.4990]

[3.5718]

    HH.div_ $
      [ 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.zaddr)
          , E.onValueInput (Just <<< setZAddr)
          ]
      ]

Deletion in client/src/Aftok/HTML/Forms.purs at line 102 [3.2279]
B:BD[3.5743] → [3.5743:5744]
Insertion in client/src/Aftok/Overview.purs at line 22 [17.91]
[16.254]
[17.1225]
```
import DOM.HTML.Indexed.ButtonType (ButtonType(..))
```
Insertion in client/src/Aftok/Overview.purs at line 26 [17.91]
[17.1414]
[17.1483]
```
import Halogen.HTML.Events as E
```

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

B:BD[17.1519] → [3.5782:5907]

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

[17.1519]

[18.6406]

import Aftok.HTML.Classes as C

Replacement in client/src/Aftok/Overview.purs at line 32 [17.91]
B:BD[16.315] → [3.5948:5997]
```
import Aftok.Api.Types (APIError, Zip321Request)
```
[16.315]
[19.3542]
```
import Aftok.Api.Types (APIError)
```
Replacement in client/src/Aftok/Overview.purs at line 58 [17.91]
B:BD[17.2373] → [17.2373:2395]
B:BD[17.2395] → [3.5998:6042]
```
  | Invite Invitation
  | InvitationCreated (Maybe Zip321Request)
```
[17.2373]
[17.2395]
```
  | Invite ProjectId
```
Deletion in client/src/Aftok/Overview.purs at line 66 [17.91]
B:BD[3.6085] → [3.6085:6135]
```
    , inviteQRModal :: PaymentRequest.QrSlot Unit
```
Deletion in client/src/Aftok/Overview.purs at line 70 [17.91]
B:BD[3.6190] → [3.6190:6240]
```
_inviteQRModal = SProxy :: SProxy "inviteQRModal"
```

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

B:BD[3.6495] → [3.6495:6582]

                  [ Modals.modalButton Invite.modalId "Invite a collaborator" Nothing]

[3.6495]

[3.6582]

                  [ HH.button
                    [ P.classes [ C.btn, C.btnPrimary ]
                    , P.type_ ButtonButton
                    , E.onClick (\_ -> Just (Invite project.projectId))
                    ]
                    [ HH.text "Invite a collaborator" ]
                  ]

Replacement in client/src/Aftok/Overview.purs at line 181 [17.91]
B:BD[3.6742] → [3.6742:6780]
```
                    project.projectId
```
[3.6742]
[3.6780]
```
                    unit
```

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

B:BD[3.6808] → [3.6808:7110]

                    (Just <<< InvitationCreated)
               , system.portal
                   _inviteQRModal
                   unit
                   (PaymentRequest.qrcomponent system)
                   Nothing
                   Nothing
                   (const Nothing)
                  ]

[3.6808]

[3.7110]

                    (const Nothing)
              ]

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

∅:D[16.627] → [20.11504:11543]

B:BD[20.11504] → [20.11504:11543]

      Invite _ -> do
        pure unit

[16.627]

[20.11543]

      Invite pid -> do
        void <<< H.query _invitationModal unit $ H.tell (Invite.OpenModal pid)

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

B:BD[16.680] → [3.7125:7418]

      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/Projects/Invite.purs at line 10 [3.7526]
[3.7741]
[3.7741]
```
import Data.Symbol (SProxy(..))
import Data.Tuple (Tuple(..))
```
Insertion in client/src/Aftok/Projects/Invite.purs at line 14 [3.7526]
[3.7816]
[3.7816]
```
import DOM.HTML.Indexed.ButtonType (ButtonType(..))
```
Insertion in client/src/Aftok/Projects/Invite.purs at line 20 [3.7526]
[3.7971]
[3.7971]
```
import Halogen.HTML.Properties.ARIA as ARIA
```
Insertion in client/src/Aftok/Projects/Invite.purs at line 25 [3.7526]
[3.8160]
[3.8160]
```
import Aftok.Components.Zip321QR as Zip321QR
```
Deletion in client/src/Aftok/Projects/Invite.purs at line 28 [3.7526]
B:BD[3.8241] → [3.8241:8271]
```
import Aftok.Modals as Modals
```
Replacement in client/src/Aftok/Projects/Invite.purs at line 32 [3.7526]
B:BD[3.8363] → [3.8363:8377]
```
  = NameField
```
[3.8363]
[3.8377]
```
  = PidField
  | NameField
```

Insertion in client/src/Aftok/Projects/Invite.purs at line 40 [3.7526]

[3.8483]

data Query a 
  = OpenModal ProjectId a
data Mode 
  = Form
  | QrScan Zip321Request

Replacement in client/src/Aftok/Projects/Invite.purs at line 48 [3.7526]
B:BD[3.8497] → [3.8497:8524]
```
  { projectId :: ProjectId
```
[3.8497]
[3.8524]
```
  { projectId :: Maybe ProjectId
```

Replacement in client/src/Aftok/Projects/Invite.purs at line 51 [3.7526]

B:BD[3.8582] → [3.8582:8680]

  , recoveryType :: CommsType
  , recoveryEmail :: Maybe String
  , recoveryZAddr :: Maybe String

[3.8582]

[3.8680]

  , channel :: CommsType
  , email :: Maybe String
  , zaddr :: Maybe String

Insertion in client/src/Aftok/Projects/Invite.purs at line 55 [3.7526]
[3.8711]
[3.8711]
```
  , mode :: Mode
```
Deletion in client/src/Aftok/Projects/Invite.purs at line 57 [3.7526]
B:BD[3.8715] → [3.8715:8774]
```
type Input = ProjectId
type Output = Maybe Zip321Request
```
Replacement in client/src/Aftok/Projects/Invite.purs at line 59 [3.7526]
B:BD[3.8787] → [3.8787:8840]
```
  = ProjectChanged ProjectId
  | SetGreetName String
```
[3.8787]
[3.8840]
```
  = SetGreetName String
```
Insertion in client/src/Aftok/Projects/Invite.purs at line 65 [3.7526]
[3.8950]
[3.8950]
```
  | Close
```

Replacement in client/src/Aftok/Projects/Invite.purs at line 68 [3.7526]

B:BD[3.8964] → [3.8964:9005]

  = forall query. H.Slot query Output id

[3.8964]

[3.9005]

  = forall output. H.Slot Query output id
type Slots
  = ( inviteQR :: Zip321QR.Slot Unit
    )

Insertion in client/src/Aftok/Projects/Invite.purs at line 74 [3.7526]
[3.9006]
[3.9006]
```
_inviteQR = SProxy :: SProxy "inviteQR"
```
Replacement in client/src/Aftok/Projects/Invite.purs at line 85 [3.7526]
B:BD[3.9274] → [3.9274:9292]
```
  forall query m.
```
[3.9274]
[3.9292]
```
  forall input output m.
```
Replacement in client/src/Aftok/Projects/Invite.purs at line 89 [3.7526]
B:BD[3.9337] → [3.9337:9380]
```
  H.Component HH.HTML query Input Output m
```
[3.9337]
[3.9380]
```
  H.Component HH.HTML Query input output m
```
Replacement in client/src/Aftok/Projects/Invite.purs at line 92 [3.7526]
B:BD[3.9420] → [3.9420:9439]
```
    { initialState
```
[3.9420]
[3.9439]
```
    { initialState: const initialState
```

Replacement in client/src/Aftok/Projects/Invite.purs at line 97 [3.7526]

B:BD[3.9507] → [3.9507:9593]

              { handleAction = eval
              , receive = Just <<< ProjectChanged

[3.9507]

[3.9593]

              { handleAction = handleAction
              , handleQuery = handleQuery

Replacement in client/src/Aftok/Projects/Invite.purs at line 102 [3.7526]

B:BD[3.9623] → [3.9623:9703]

  initialState :: Input -> CState
  initialState input =
    { projectId: input

[3.9623]

[3.9703]

  initialState :: CState
  initialState =
    { projectId: Nothing

Replacement in client/src/Aftok/Projects/Invite.purs at line 107 [3.7526]

B:BD[3.9753] → [3.9753:9865]

    , recoveryType: EmailComms
    , recoveryEmail: Nothing
    , recoveryZAddr: Nothing
    , fieldErrors : []

[3.9753]

[3.9865]

    , channel: ZcashComms
    , email: Nothing
    , zaddr: Nothing
    , fieldErrors: []
    , mode: Form

Replacement in client/src/Aftok/Projects/Invite.purs at line 114 [3.7526]

B:BD[3.9872] → [3.9872:9939]

  render :: forall slots. CState -> H.ComponentHTML Action slots m

[3.9872]

[3.9939]

  render :: CState -> H.ComponentHTML Action Slots m

Replacement in client/src/Aftok/Projects/Invite.purs at line 116 [3.7526]

B:BD[3.9953] → [3.9953:10427]

    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)

[3.9953]

[3.10427]

    HH.div
      [ P.classes [ C.modal ]
      , P.id_ modalId
      , P.tabIndex (negate 1)
      , ARIA.role "dialog"
      , ARIA.labelledBy (modalId <> "Title")
      , ARIA.hidden "true"
      ]
      [ HH.div
        [ P.classes [C.modalDialog], ARIA.role "document" ]
        [ HH.div
          [ P.classes [C.modalContent] ]
          [ HH.div
            [ P.classes [C.modalHeader] ]
            [ HH.h5 [P.classes [C.modalTitle], P.id_ (modalId <>"Title") ] [HH.text "Invite a collaborator"]
            , HH.button
              [ P.classes [ C.close ]
              , ARIA.label "Close"
              , P.type_ ButtonButton
              , E.onClick (\_ -> Just Close)
              ]
              [ HH.span [ARIA.hidden "true"] [HH.text "×"]]

Insertion in client/src/Aftok/Projects/Invite.purs at line 139 [3.7526]

[3.10441]

          , HH.div
            [ P.classes [C.modalBody] ]
            case st.mode of
              Form -> 
                [ inviteForm st ]
              QrScan req -> 
                [ HH.slot _inviteQR unit (Zip321QR.component system) req (const Nothing) ]
          , HH.div
            [ P.classes [C.modalFooter] ] $
            case st.mode of 
              Form -> 
                [ HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnSecondary]
                  , E.onClick (\_ -> Just Close)
                  ]
                  [ HH.text "Close" ]
                , HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnPrimary ]
                  , E.onClick (\_ -> Just CreateInvitation)
                  ]
                  [ HH.text "Send invitation" ]
                ]
              QrScan _ -> 
                [ HH.button
                  [ P.type_ ButtonButton
                  , P.classes [ C.btn, C.btnPrimary]
                  , E.onClick (\_ -> Just Close)
                  ]
                  [ HH.text "Close" ]
                ]

Replacement in client/src/Aftok/Projects/Invite.purs at line 174 [3.7526]

B:BD[3.10453] → [3.10453:10853]

        , 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)
              ]

[3.10453]

[3.10853]

        ]
      ]
  inviteForm st = 
    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)

Replacement in client/src/Aftok/Projects/Invite.purs at line 191 [3.7526]

B:BD[3.10865] → [3.10865:11076]

        , commsSwitch SetCommsType st.recoveryType
        , commsField SetEmail SetZAddr st $ case _ of
            EmailComms -> fieldError st EmailField    
            ZcashComms -> fieldError st ZAddrField

[3.10865]

[3.11076]

        ]
      , 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)
            ]

Insertion in client/src/Aftok/Projects/Invite.purs at line 205 [3.7526]

[3.11086]

      , commsSwitch SetCommsType st.channel
      , commsField SetEmail SetZAddr st $ case _ of
          EmailComms -> fieldError st EmailField    
          ZcashComms -> fieldError st ZAddrField

Insertion in client/src/Aftok/Projects/Invite.purs at line 221 [3.7526]
[3.11454]
[3.11454]
```
            PidField -> err "No project id found; please report an error"
```

Replacement in client/src/Aftok/Projects/Invite.purs at line 223 [3.7526]

B:BD[3.11512] → [3.11512:11661]

            EmailField -> err "The email field is when email comms are selected"
            ZAddrField -> err "Not a valid Zcash shielded address."

[3.11512]

[3.11661]

            EmailField -> err "An email value is required when email comms are selected"
            ZAddrField -> err "Not a valid Zcash shielded address"

Replacement in client/src/Aftok/Projects/Invite.purs at line 229 [3.7526]

B:BD[3.11804] → [3.11804:12186]

  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] })

[3.11804]

[3.12186]

  -- we use a query to initialize, since this is a modal that doesn't actually get unloaded.
  handleQuery :: forall slots a. Query a -> H.HalogenM CState Action slots output m (Maybe a)
  handleQuery = case _ of
    OpenModal pid a -> do
      H.modify_ (\_ -> initialState { projectId = Just pid })
      lift $ system.toggleModal modalId ModalFFI.ShowModal
      pure (Just a)

Replacement in client/src/Aftok/Projects/Invite.purs at line 237 [3.7526]

B:BD[3.12187] → [3.12187:13818]

  -- 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)

[3.12187]

[3.13818]

  handleAction :: forall slots. Action -> H.HalogenM CState Action slots output m Unit
  handleAction = case _ of
    SetGreetName name ->
      H.modify_ (_ { greetName = Just name })
    SetMessage msg ->
      H.modify_ (_ { message = Just msg })
    SetCommsType t -> 
      H.modify_ (_ { channel = t })
    SetEmail email -> 
      H.modify_ (_ { email = Just email })
    SetZAddr addr -> do
      let setZAddr addr' = do
            zres <- lift $ caps.checkZAddr addr'
            H.modify_ (_ { zaddr = Just addr' })
            case zres of
              Acc.ZAddrCheckValid -> 
                H.modify_ (\st -> st { fieldErrors = filter (_ /= ZAddrField) st.fieldErrors
                                     , channel = ZcashComms 
                                     })
              Acc.ZAddrCheckInvalid -> 
                H.modify_ (\st -> st { fieldErrors = st.fieldErrors <> [ZAddrField] })
      when (addr /= "") (setZAddr addr)
    CreateInvitation -> do
      pidV <- V <<< note [PidField] <$> H.gets (_.projectId)
      nameV <- V <<< note [NameField] <$> H.gets (_.greetName)
      message <- H.gets (_.message)
      channel <- H.gets (_.channel)
      addrV <- 
        case channel of
             EmailComms -> map EmailCommsAddr <<< V <<< note [EmailField] <$> H.gets (_.email)
             ZcashComms -> map ZcashCommsAddr <<< V <<< note [ZAddrField] <$> H.gets (_.zaddr)
      let reqV :: V (Array Field) (Invitation' CommsAddress)
          reqV = { greetName: _, message: _, inviteBy: _ }
            <$> nameV
            <*> pure message
            <*> addrV
      case toEither (Tuple <$> pidV <*> reqV) of
        Right (Tuple pid invitation) -> do
          res <- lift $ caps.createInvitation pid invitation
          case res of
            Right (Just req) -> H.modify_ (_ { mode = QrScan req })
            Right Nothing    -> handleAction Close
            Left errs        -> lift $ system.error (show errs)
        Left errors -> do
          H.modify_ (_ { fieldErrors = errors })
    Close -> do
      H.modify_ (const initialState) -- wipe the state for safety
      lift $ system.toggleModal modalId ModalFFI.HideModal

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

B:BD[20.14604] → [3.14114:14146]

∅:D[3.14146] → [20.14639:14711]

B:BD[20.14639] → [20.14639:14711]

    , recoveryType :: CommsType
    , recoveryEmail :: Maybe String
    , recoveryZAddr :: Maybe String

[20.14604]

[22.1741]

    , channel :: CommsType
    , email :: Maybe String
    , zaddr :: Maybe String

Replacement in client/src/Aftok/Signup.purs at line 121 [21.1]
B:BD[20.15598] → [3.14178:14209]
∅:D[3.14209] → [20.15632:15690]
B:BD[20.15632] → [20.15632:15690]
```
    , recoveryType: EmailComms
    , recoveryEmail: Nothing
    , recoveryZAddr: Nothing
```
[20.15598]
[22.1811]
```
    , channel: EmailComms
    , email: Nothing
    , zaddr: Nothing
```

Replacement in client/src/Aftok/Signup.purs at line 191 [21.1]

B:BD[3.14389] → [3.14389:14457]

                      , commsSwitch SetRecoveryType st.recoveryType

[3.14389]

[3.14457]

                      , commsSwitch SetRecoveryType st.channel

Replacement in client/src/Aftok/Signup.purs at line 229 [21.1]
B:BD[22.2614] → [22.2614:2662]
```
    H.modify_ (_ { recoveryZAddr = Just addr })
```
[22.2614]
[22.2662]
```
    H.modify_ (_ { zaddr = Just addr })
```

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

B:BD[22.2709] → [3.14766:14878]

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

[22.2709]

[22.2824]

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

Replacement in client/src/Aftok/Signup.purs at line 273 [21.1]
B:BD[3.14905] → [3.14905:14946]
```
      H.modify_ (_ { recoveryType = t })
```
[3.14905]
[3.14946]
```
      H.modify_ (_ { channel = t })
```
Replacement in client/src/Aftok/Signup.purs at line 275 [21.1]
B:BD[3.14977] → [3.14977:15028]
```
      H.modify_ (_ { recoveryEmail = Just email })
```
[3.14977]
[19.15581]
```
      H.modify_ (_ { email = Just email })
```
Replacement in client/src/Aftok/Signup.purs at line 284 [21.1]
B:BD[20.21411] → [20.21411:21452]
```
      recType <- H.gets (_.recoveryType)
```
[20.21411]
[20.21452]
```
      recType <- H.gets (_.channel)
```

Replacement in client/src/Aftok/Signup.purs at line 288 [21.1]

B:BD[20.21681] → [20.21681:21767]

B:BD[20.21767] → [3.15029:15243]

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

[20.21681]

[20.21987]

      channel <- H.gets (_.channel)
      recoveryV <- case channel of
        EmailComms -> V <<< note [ EmailRequired ] <<< map Acc.RecoverByEmail <$> H.gets (_.email)
        ZcashComms -> V <<< note [ ZAddrRequired ] <<< map Acc.RecoverByZAddr <$> H.gets (_.zaddr)

Fix the broken modals.

Dependencies

In channels

Change contents

File deletion: Modals.purs

Deletion in client/src/Aftok/Billing/Create.purs at line 8 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 24 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 30 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 33 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 55 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 67 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 70 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 74 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 83 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 87 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 92 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 97 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 101 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 104 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 106 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 113 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 128 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 152 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 167 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 194 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 240 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 272 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 304 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 313 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 319 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 324 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 354 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 359 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 370 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 384 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 420 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 425 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 454 [10.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 459 [10.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 463 [10.475]

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 5 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 8 [8.11170]

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 10 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 12 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 18 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 23 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 28 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 34 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 36 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 42 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 47 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 50 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 55 [8.11170]

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 57 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 58 [8.11170]

Insertion in client/src/Aftok/Billing/PaymentRequest.purs at line 61 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 64 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 84 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 88 [8.11170]

Replacement in client/src/Aftok/Billing/PaymentRequest.purs at line 91 [8.11170]

Deletion in client/src/Aftok/Billing/PaymentRequest.purs at line 98 [8.11170]