1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
[[!comment format=mdwn
username="seantparsons"
avatar="http://cdn.libravatar.org/avatar/616fb81847630239dd1ab099138cb685"
subject="Since the attachment doesn't appear to be there, here's the content."
date="2017-10-22T20:32:21Z"
content="""
diff --git a/Annex/MetaData.hs b/Annex/MetaData.hs
index e22ed05a6..355c5124a 100644
--- a/Annex/MetaData.hs
+++ b/Annex/MetaData.hs
@@ -60,10 +60,11 @@ dateMetaData :: UTCTime -> MetaData -> MetaData
dateMetaData mtime old = MetaData $ M.fromList $ filter isnew
[ (yearMetaField, S.singleton $ toMetaValue $ show y)
, (monthMetaField, S.singleton $ toMetaValue $ show m)
+ , (dayMetaField, S.singleton $ toMetaValue $ show d)
]
where
isnew (f, _) = S.null (currentMetaDataValues f old)
- (y, m, _d) = toGregorian $ utctDay mtime
+ (y, m, d) = toGregorian $ utctDay mtime
{- Parses field=value, field+=value, field-=value, field?=value -}
parseModMeta :: String -> Either String ModMeta
diff --git a/Annex/MetaData/StandardFields.hs b/Annex/MetaData/StandardFields.hs
index c91b53930..b9ea47e2f 100644
--- a/Annex/MetaData/StandardFields.hs
+++ b/Annex/MetaData/StandardFields.hs
@@ -9,6 +9,7 @@ module Annex.MetaData.StandardFields (
tagMetaField,
yearMetaField,
monthMetaField,
+ dayMetaField,
lastChangedField,
mkLastChangedField,
isLastChangedField
@@ -27,6 +28,9 @@ yearMetaField = mkMetaFieldUnchecked \"year\"
monthMetaField :: MetaField
monthMetaField = mkMetaFieldUnchecked \"month\"
+dayMetaField :: MetaField
+dayMetaField = mkMetaFieldUnchecked \"day\"
+
lastChangedField :: MetaField
lastChangedField = mkMetaFieldUnchecked lastchanged
diff --git a/stack.yaml b/stack.yaml
index d84c4682e..ac601200e 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -24,3 +24,11 @@ extra-deps:
explicit-setup-deps:
git-annex: true
resolver: lts-9.9
+nix:
+ packages:
+ - ncurses
+ - icu
+ - libcxx
+ - gcc
+ - zlib
+ - rsync
\ No newline at end of file
"""]]
|
