diff options
| author | Joris | 2016-11-13 00:49:32 +0100 |
|---|---|---|
| committer | Joris | 2016-11-13 00:49:32 +0100 |
| commit | 86a96decdb8892b10c5314eb916ef15a64204450 (patch) | |
| tree | 6f41742d0466f77948680964188144fbff036902 /src/server/Job/Frequency.hs | |
| parent | bf6a0a0b32a7efb88f75c2e89b84d6907aeb10bc (diff) | |
| download | budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.gz budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.bz2 budget-86a96decdb8892b10c5314eb916ef15a64204450.zip | |
Send weekly activity at start of week about previous week
Diffstat (limited to 'src/server/Job/Frequency.hs')
| -rw-r--r-- | src/server/Job/Frequency.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/server/Job/Frequency.hs b/src/server/Job/Frequency.hs new file mode 100644 index 0000000..263f6e6 --- /dev/null +++ b/src/server/Job/Frequency.hs @@ -0,0 +1,13 @@ +module Job.Frequency + ( Frequency(..) + , microSeconds + ) where + +data Frequency = + EveryHour + | EveryDay + deriving (Eq, Read, Show) + +microSeconds :: Frequency -> Int +microSeconds EveryHour = 1000000 * 60 * 60 +microSeconds EveryDay = (microSeconds EveryHour) * 24 |