following commands to initialize the database. The postgres user's password is
specified in the docker-compose file.

`deploy/dbinit.sh` script to initialize the database. The postgres user's password 
can be specified in the docker-compose file.

createuser -h localhost -U postgres -W -P aftok
createdb -h localhost -U postgres -W -O aftok aftok 
psql -h localhost -U aftok -W aftok < local/postgres/db-dumps/aftok.dump

./deploy/dbinit.sh local/postgres/db-dumps/aftok.dump

  , timeDevoted :: Hours

  , loggedHours :: Hours
  , depreciatedHours :: Hours

    timeDevoted <- Hours <$> x .: "timeDevoted"

    loggedHours <- Hours <$> x .: "loggedHours"
    depreciatedHours <- Hours <$> x .: "depreciatedHours"

    pure $ Contributor' { userId, handle, joinedOn, timeDevoted, revShare }

    pure $ Contributor' { userId, handle, joinedOn, loggedHours, depreciatedHours, revShare }

                , colmd3 (Just "Contributed Hours")
                , colmd3 (Just "Current Revenue Share")

                , colmd2 (Just "Contributed")
                , colmd3 (Just "After Depreciation")
                , colmd3 (Just "Revenue Share")

        , colmd3 (Just $ show (unwrap pud.timeDevoted))

        , colmd2 (Just $ show (unwrap pud.loggedHours) <> " hours")
        , colmd3 (Just $ show (unwrap pud.depreciatedHours) <> " hours")

                        , timeDevoted: Hours 100.0

                        , loggedHours: Hours 100.0
                        , depreciatedHours: Hours 75.0

#!/bin/bash
createuser -h localhost -U postgres -W -P aftok
createdb -h localhost -U postgres -W -O aftok aftok 
psql -h localhost -U postgres -W aftok \
  -c 'CREATE EXTENSION IF NOT EXISTS "uuid-ossp" WITH SCHEMA public;'
if [ -n "$1" ]; then 
  psql -h localhost -U aftok -W aftok < $1
fi

        source: aftok-data

        source: v_aftok-data

  aftok-data:

  v_aftok-data:

  deriving (Show, Eq)

  deriving (Show, Eq)

          else max 0 (1 - (C.toSeconds (intervalAge ^-^ undepLength) / C.toSeconds depLength))

          else
            if depLength == 0
              then 0
              else max 0 (1 - (C.toSeconds (intervalAge ^-^ undepLength) / C.toSeconds depLength))

      withShareFraction t = t & wsShare .~ (C.toSeconds (t ^. wsDepreciated) / C.toSeconds totalTime)

      withShareFraction t =
        t & wsShare .~ (
          if totalTime == 0
            then 0
            else (C.toSeconds (t ^. wsDepreciated) / C.toSeconds totalTime)
        )

    wsDepreciated,

        _timeDevoted :: Hours,

        _loggedHours :: Hours,
        _depreciatedHours :: Hours,

              _timeDevoted = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsLogged,

              _loggedHours = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsLogged,
              _depreciatedHours = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsDepreciated,

            zeroContrib = Contributor uid' h t (Hours 0) 0

            zeroContrib = Contributor uid' h t (Hours 0) (Hours 0) 0

      "timeDevoted" .= (c ^. timeDevoted . (to fromEnum)),

      "loggedHours" .= (c ^. loggedHours . (to fromEnum)),
      "depreciatedHours" .= (c ^. depreciatedHours . (to fromEnum)),

import Aftok.Types (DepreciationFunction (..), UserId (..))

import Aftok.Types (DepreciationFunction (..), DepreciationRules (..), UserId (..))

import qualified Data.UUID as U

          depf = toDepF $ LinearDepreciation 180 1800

          depf = toDepF $ DepreciationRules (LinearDepreciation 180 1800) Nothing

    it "correctly handles fully depreciated work intervals" $ do
      now <- C.getCurrentTime
      let depf = toDepF $ DepreciationRules (LinearDepreciation 6 2) Nothing
          raw = [
            ("b3ff64b7-6699-45f2-acee-38751325bf46", StartWork, "2021-02-09T15:52:13.434308+00"),
            ("b3ff64b7-6699-45f2-acee-38751325bf46", StopWork,  "2021-02-09T16:12:32.936579+00"),
            ("d56ae5bd-8892-44c6-9a02-f6a8aca8636e", StartWork, "2021-02-09T16:23:10.637749+00"),
            ("d56ae5bd-8892-44c6-9a02-f6a8aca8636e", StopWork,  "2021-02-09T16:27:00.082747+00"),
            ("d56ae5bd-8892-44c6-9a02-f6a8aca8636e", StartWork, "2021-02-09T16:29:10.119337+00"),
            ("d56ae5bd-8892-44c6-9a02-f6a8aca8636e", StopWork,  "2021-02-09T18:54:26.778107+00")]
          toEvent :: (String, C.UTCTime -> LogEvent, String) -> Maybe LogEntry
          toEvent (uuid, f, t) =
            LogEntry <$> (CreditToUser . UserId <$> U.fromString uuid)
                     <*> (f . C.toThyme <$> parseISO8601 t)
                     <*> pure Nothing
          events = catMaybes $ fmap toEvent raw
          widx = workIndex (view event) events
          p = payouts depf now widx
      p `shouldBe` WorkShares 0 M.empty

      let depf = linearDepreciation 10 100

      let depf fr = linearDepreciation fr 10 100