diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-05-10 15:36:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-10 15:36:58 -0400 |
| commit | cb994264d239ca4ac50402175a7fd7ac89e029d6 (patch) | |
| tree | 4b7c4d05e045fc4593812746274b1898176cb216 /Logs/MetaData.hs | |
| parent | 724e67bdf449120bdaf0ca695d49626e5249d446 (diff) | |
more time-1.5 fixes
Diffstat (limited to 'Logs/MetaData.hs')
| -rw-r--r-- | Logs/MetaData.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Logs/MetaData.hs b/Logs/MetaData.hs index ed4e2363e..0dc76214c 100644 --- a/Logs/MetaData.hs +++ b/Logs/MetaData.hs @@ -41,12 +41,11 @@ import qualified Annex.Branch import qualified Annex import Logs import Logs.SingleValue +import Logs.TimeStamp import qualified Data.Set as S import qualified Data.Map as M import Data.Time.Clock.POSIX -import Data.Time.Format -import System.Locale instance SingleValueSerializable MetaData where serialize = Types.MetaData.serialize @@ -86,7 +85,7 @@ getCurrentMetaData k = do ts = lastchangedval l in M.map (const ts) m lastchangedval l = S.singleton $ toMetaValue $ showts $ changed l - showts = formatTime defaultTimeLocale "%F@%H-%M-%S" . posixSecondsToUTCTime + showts = formatPOSIXTime "%F@%H-%M-%S" {- Adds in some metadata, which can override existing values, or unset - them, but otherwise leaves any existing metadata as-is. -} |