diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/MetaData.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Logs/MetaData.hs b/Logs/MetaData.hs index 724f309ff..e1d2044cc 100644 --- a/Logs/MetaData.hs +++ b/Logs/MetaData.hs @@ -75,11 +75,9 @@ getCurrentMetaData k = do -- Makes each field have the timestamp as its value. genlastchanged l = let MetaData m = value l - ts = S.singleton $ toMetaValue $ - formatTime defaultTimeLocale "%s" $ - posixSecondsToUTCTime $ - changed l + ts = S.singleton $ toMetaValue $ showts $ changed l in M.map (const ts) m + showts = formatTime defaultTimeLocale "%F@%H-%M-%S" . posixSecondsToUTCTime {- Adds in some metadata, which can override existing values, or unset - them, but otherwise leaves any existing metadata as-is. -} |