import Data.Foldable (all)

  | ProjectSelected ProjectId

  | ProjectSelected (Maybe ProjectId)

              { handleAction = eval

              { handleAction = handleAction

              , receive = Just <<< ProjectSelected

                  (Just <<< (\(ProjectList.ProjectChange p) -> ProjectSelected p))

                  (Just <<< (\(ProjectList.ProjectChange p) -> ProjectSelected (Just p)))

  eval :: BillingAction -> H.HalogenM BillingState BillingAction Slots ProjectList.Output m Unit
  eval action = do

  handleAction :: BillingAction -> H.HalogenM BillingState BillingAction Slots ProjectList.Output m Unit
  handleAction action = do

      ProjectSelected pid -> do

      ProjectSelected pidMay -> do

        refreshBillables pid
        when (all (_ /= pid) currentPid) $ do
          H.raise (ProjectList.ProjectChange pid)
          H.modify_ (_ { selectedProject = Just pid })

        traverse_ refreshBillables pidMay
        when (currentPid /= pidMay) 
          $ traverse_ projectSelected pidMay

      projectSelected pid = do
        H.modify_ (_ { selectedProject = Just pid })
        H.raise (ProjectList.ProjectChange pid)

import Data.Foldable (all)

  | ProjectSelected ProjectId

  | ProjectSelected (Maybe ProjectId)

              { handleAction = eval

              { handleAction = handleAction
              , receive = Just <<< ProjectSelected

                  (Just <<< (\(ProjectList.ProjectChange p) -> ProjectSelected p))

                  (Just <<< (\(ProjectList.ProjectChange p) -> ProjectSelected (Just p)))

                  (Just <<< (\(Create.ProjectCreated p) -> ProjectSelected p))

                  (Just <<< (\(Create.ProjectCreated p) -> ProjectSelected (Just p)))

  eval :: OverviewAction -> H.HalogenM OverviewState OverviewAction Slots ProjectList.Output m Unit
  eval action = do

  handleAction :: OverviewAction -> H.HalogenM OverviewState OverviewAction Slots ProjectList.Output m Unit
  handleAction action = do

      ProjectSelected pid -> do

      ProjectSelected pidMay -> do

        when (all (_ /= pid) currentProject)
          $ do
              H.raise (ProjectList.ProjectChange pid)
              H.modify_ (_ { selectedProject = Just pid })
              setProjectDetail pid

        when (currentProject /= pidMay)
          $ traverse_ projectSelected pidMay
    where 
      projectSelected pid = do
        H.modify_ (_ { selectedProject = Just pid })
        setProjectDetail pid
        H.raise (ProjectList.ProjectChange pid)

              , receive = Just <<< Initialize

      lift <<< console.log $ "Selected project index " <> show i
      traverse_ (\p -> H.raise $ ProjectChange (unwrap p).projectId) (index projects (i - 1))

      traverse_ projectSelected (index projects (i - 1))
    where
      projectSelected p = do
        let pid = (unwrap p).projectId
        H.modify_ (_ { selectedPid = Just pid })
        H.raise $ ProjectChange pid

import Data.Foldable (any, length)

import Data.Foldable (length)

-- import Text.Format as F -- (format, zeroFill, width)

  | ProjectSelected ProjectId

  | ProjectSelected (Maybe ProjectId)

              { handleAction = eval

              { handleAction = handleAction

              , receive = Just <<< ProjectSelected

                  (Just <<< (\(ProjectList.ProjectChange pid) -> ProjectSelected pid))

                  (Just <<< (\(ProjectList.ProjectChange pid) -> ProjectSelected (Just pid)))

  eval :: TimelineAction -> H.HalogenM TimelineState TimelineAction Slots ProjectList.Output m Unit
  eval action = do

  handleAction :: TimelineAction -> H.HalogenM TimelineState TimelineAction Slots ProjectList.Output m Unit
  handleAction action = do

      ProjectSelected pid -> do

      ProjectSelected pidMay -> do

        -- End any active intervals when switching projects.
        when (oldActive && any (_ /= pid) currentProject)
          $ (traverse_ logEnd currentProject)
        H.raise (ProjectList.ProjectChange pid)
        setStateForProject pid

        when (currentProject /= pidMay) $ do
          -- End any active intervals when switching projects.
          when oldActive $ traverse_ logEnd currentProject
          traverse_ projectSelected pidMay

    where
      projectSelected pid = do
        setStateForProject pid
        H.raise (ProjectList.ProjectChange pid)

    ProjectAction (ProjectList.ProjectChange p) -> H.modify_ (_ { selectedProject = Just p })

    ProjectAction (ProjectList.ProjectChange p) -> 
      H.modify_ (_ { selectedProject = Just p })