Update overview to have access to the real project detail capability.

Dependencies

• [2] 7TQPQW3N Begin adding parsing for project detail.
• [3] GLQSD33Y Use mock capability for overview init.
• [4] QH4UB73N Format with purty.
• [5] B4MTB6UO Persist project across pages.
• [6] PPW6ROC5 Render project data
• [7] Z5KNL332 Add skeleton of project overview HTML.
• [8] QAC2QJ32 Add project overview page to client.
• [9] NAFJ6RB3 Minor module reorg.
• [10] APOATM4X Add getProjectDetail call to project API

Change contents

• replacement in client/src/Aftok/Overview.purs at line 15
  [3.626]→[3.613:648](∅→∅),[3.6405]→[3.613:648](∅→∅),[3.613]→[3.613:648](∅→∅)
  − -- import Data.Either (Either(..))
  [3.626]

  [3.648]
  + import Data.Either (Either(..))
• edit in client/src/Aftok/Overview.purs at line 62
  [3.315]

  [3.873]
  + import Aftok.Api.Types (APIError)
• edit in client/src/Aftok/Overview.purs at line 67
  [2.4310]

  [3.1034]
  + , getProjectDetail
• replacement in client/src/Aftok/Overview.purs at line 97
  [3.9933]→[3.395:458](∅→∅)
  − = { getProjectDetail :: ProjectId -> m (Maybe ProjectDetail)
  [3.9933]

  [3.9939]
  + = { getProjectDetail :: ProjectId -> m (Either APIError (Maybe ProjectDetail))
• replacement in client/src/Aftok/Overview.purs at line 360
  [3.859]→[3.859:906](∅→∅)
  − H.modify_ (_ { projectDetail = detail })
  [3.859]

  [3.906]
  + case detail of

  + Left err -> lift $ system.error (show err)

  + Right d -> H.modify_ (_ { projectDetail = d })
• replacement in client/src/Aftok/Overview.purs at line 366
  [3.10381]→[3.908:949](∅→∅)
  − { getProjectDetail: \_ -> pure Nothing
  [3.10381]

  [3.6925]
  + { getProjectDetail: getProjectDetail
• replacement in client/src/Aftok/Overview.purs at line 374
  [3.1066]→[3.1066:1104](∅→∅)
  − pure <<< Just $ ProjectDetail'
  [3.1066]

  [3.1104]
  + pure <<< Right <<< Just $ ProjectDetail'