-- import Control.Monad.Trans.Class (lift)

import Control.Monad.Trans.Class (lift)

import Data.Enum (toEnum)
import Data.Date (canonicalDate)

import Data.DateTime (DateTime(..), date)
import Data.DateTime.Instant (Instant)

import Data.DateTime (date)

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

import Data.Maybe (Maybe(..), maybe, isNothing)

-- import Data.Traversable (traverse_, traverse)

import Data.Traversable (traverse_)

import Data.UUID (genUUID)

-- import Effect.Class (liftEffect)

import Effect.Class (liftEffect)

import Effect.Now (nowDateTime)

-- import Aftok.Project (Project, Project'(..), ProjectId) --, pidStr)
import Aftok.Types (System, ProjectId, dateStr)

import Aftok.Types (System, ProjectId, UserId(..), dateStr)

  (Project, Project'(..), ProjectEvent(..), Member', ProjectDetail, ProjectDetail'(..)

  (Project, Project'(..), ProjectEvent(..), ProjectDetail, ProjectDetail'(..)

  = { getProjectMembers :: ProjectId -> m (Array (Member' Instant))

  = { getProjectDetail :: ProjectId -> m (Maybe ProjectDetail)

    , projectDetail: case input of
        Nothing -> Nothing
        Just p -> Just $ ProjectDetail' 
          { project: p
          , depreciation: LinearDepreciation { undep: Days 30.0, dep: Days 300.0 }
          , contributors: M.singleton (unwrap p).initiator $ ProjectUserData' 
            { userName: "Joe"
            , joinedOn: DateTime (fromMaybe bottom $ canonicalDate <$> (toEnum 2021) <*>  (toEnum 1) <*>  (toEnum 26)) bottom
            , totalContribution: Hours 100.0
            , currentPayoutRatio: 55 R.% 100
            }
          
          }

    , projectDetail: Nothing

        pure unit

        currentProject <- H.gets (_.selectedProject)
        traverse_ (setProjectDetail <<< (\p -> (unwrap p).projectId)) currentProject

              setProjectDetail (unwrap p).projectId

  setProjectDetail :: ProjectId -> H.HalogenM OverviewState OverviewAction Slots ProjectEvent m Unit
  setProjectDetail pid = do
      detail <- lift $ caps.getProjectDetail pid
      H.modify_ (_ { projectDetail = detail })

  { getProjectMembers: \_ -> pure []

  { getProjectDetail: \_ -> pure Nothing

  { getProjectMembers: \_ -> pure []

  { getProjectDetail: \pid -> do
      t <- liftEffect nowDateTime      
      uid <- UserId <$> liftEffect genUUID
      pure <<< Just $ ProjectDetail' 
        { project: Project'
          { projectId: pid
          , projectName: "Fake Project"
          , inceptionDate: t
          , initiator: uid
          }
        , depreciation: LinearDepreciation { undep: Days 30.0, dep: Days 300.0 }
        , contributors: M.singleton uid $ ProjectUserData' 
          { userName: "Joe"
          , joinedOn: t
          , totalContribution: Hours 100.0
          , currentPayoutRatio: 55 R.% 100
          }
        }

      overview = Overview.apiCapability

      overview = Overview.mockCapability

          case result of
            Acc.LoginForbidden -> pure VLogin
            Acc.LoginError _ -> pure VLogin
            _ -> pure VTimeline

          pure $ case result of
            Acc.LoginForbidden -> VLogin
            Acc.LoginError _ -> VLogin
            _ -> case other of
              "timeline" -> VTimeline
              _ -> VOverview