Use real API capability for login.

[?]
Aug 17, 2020, 6:29 PM
TUA4HMUDRRXLVOH4WPID2ZJGEIJTSCMM5OBP3E26ECYHSHG3IBDQC

Dependencies

  • [2] NJNMO72S Add zcash.com submodule and update client to modern halogen.
  • [3] TKGBRIQT Login component now raises LoginComplete message.
  • [4] JXG3FCXY Upgrade ps + halogen versions.
  • [5] EA5BFM5G Split Login component into its own module.
  • [6] ARX7SHY5 Begin work on login UI.
  • [7] HO2PFRAB Client login now handles response correctly.
  • [*] RB2ETNIF Add skeletal PureScript client project.

Change contents

  • edit in client/package.json at line 12
    [2.291210]
    [2.291210]
    "build-dev": "mkdir -p prod && cp dev/index.html prod/ && spago bundle-app --to prod/index.js && parcel build prod/index.html --public-url /app/",
  • edit in client/src/Aftok/Login.purs at line 27
    [2.295631]
    [2.295631]
    import Effect.Class.Console (log)
  • replacement in client/src/Aftok/Login.purs at line 71
    [2.296446][2.296446:296526]()
    render :: forall slots m. LoginState -> H.ComponentHTML LoginAction slots m
    [2.296446]
    [2.296526]
    render :: forall slots. LoginState -> H.ComponentHTML LoginAction slots m
  • edit in client/src/Aftok/Login.purs at line 173
    [3.2736]
    [2.300621]
    log "Sending login request to /api/login ..."
  • edit in client/src/Aftok/Login.purs at line 179
    [2.300846]
    [2.300846]
    case result of
    Left err -> log (printError err)
    Right r -> log ("Got status: " <> show r.status)
  • replacement in client/src/Aftok/Login.purs at line 192
    [3.3164][2.301157:301190]()
    mockCapability :: Capability Aff
    [3.3164]
    [2.301190]
    mockCapability :: forall m. Applicative m => Capability m
  • replacement in client/src/Main.purs at line 25
    [2.307895][2.307895:307936]()
    let c = component Login.mockCapability
    [2.307895]
    [2.307936]
    --let c = component Login.mockCapability
    let c = component Login.apiCapability
  • edit in client/src/Main.purs at line 29
    [3.1117][2.307957:308018](),[3.1237][3.1486:1487](),[2.308018][3.1486:1487](),[3.1486][3.1486:1487]()
    type LoggedInState =
    { timelineState :: TimelineState
    }