From 28ea1868db9505eae1ce33848b130e06253a423d Mon Sep 17 00:00:00 2001
From: seantparsons <seantparsons@web>
Date: Sun, 22 Oct 2017 20:32:22 +0000
Subject: Added a comment: Since the attachment doesn't appear to be there,
 here's the content.

---
 ...ent_1_d46d9f085b7077cc95d71628e45c231d._comment | 64 ++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 doc/bugs/Add_day_to_metadata./comment_1_d46d9f085b7077cc95d71628e45c231d._comment

diff --git a/doc/bugs/Add_day_to_metadata./comment_1_d46d9f085b7077cc95d71628e45c231d._comment b/doc/bugs/Add_day_to_metadata./comment_1_d46d9f085b7077cc95d71628e45c231d._comment
new file mode 100644
index 000000000..ec344a2d6
--- /dev/null
+++ b/doc/bugs/Add_day_to_metadata./comment_1_d46d9f085b7077cc95d71628e45c231d._comment
@@ -0,0 +1,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
+
+"""]]
-- 
cgit v1.2.3