data Query a
  = Tell a

  = H.Slot Query Output id

  = forall query. H.Slot query Output id

  forall m.

  forall query m.

  H.Component HH.HTML Query Input Output m

  H.Component HH.HTML query Input Output m

import Data.Maybe (Maybe(..))

import Data.Maybe (Maybe(..), fromMaybe)

-- import Data.Traversable (traverse_)

import Data.Traversable (traverse_)

type Input = 
  { projectId :: ProjectId
  , billableId :: Maybe BillableId
  }

type Input = ProjectId

data Query a = 
  SetBillableId BillableId a

data Query a 
  = SetProjectId ProjectId a
  | SetBillableId BillableId a

  = SetName String

  = ProjectChanged ProjectId
  | SetName String

              , receive = Just <<< ProjectChanged

    { projectId: input.projectId
    , billableId: input.billableId

    { projectId: input
    , billableId: Nothing

            , P.value (fromMaybe "" st.name)

              , P.value (fromMaybe "" st.description)

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

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

              lift $ system.log "Request created."

              H.modify_ (_ { billableId = Nothing, name = Nothing, description = Nothing, fieldErrors = [] })

  | QrClose

    Modals.modalWithClose qrModalId "Payment Request"

    Modals.modalWithClose qrModalId "Payment Request" QrClose

  handleAction _ = pure unit

  handleAction = case _ of
    QrInit -> do
      req <- H.gets (_.req)
      lift $ traverse_ renderQR req
    QrClose -> 
      H.modify_ (_ { req = Nothing, dataUrl = Nothing })

    , selectedBillable :: Maybe BillableId

    , selectedBillable: Nothing

                      { projectId: (unwrap p).projectId, billableId: st.selectedBillable }

                      (unwrap p).projectId

        H.modify_ (_ { selectedBillable = Just bid })

  forall i w.

  forall action slots m.

  Array (HH.HTML i w) ->
  HH.HTML i w
modalWithClose modalId title contents =

  action ->
  Array (H.ComponentHTML action slots m) ->
  H.ComponentHTML action slots m
modalWithClose modalId title action contents =

            , E.onClick (\_ -> Just action)

              [ HH.text "Project Overview - New!" ]

              [ HH.text "Project Overview" ]