diff options
Diffstat (limited to 'Logs/SingleValue.hs')
-rw-r--r-- | Logs/SingleValue.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/SingleValue.hs b/Logs/SingleValue.hs index cbebdc8e5..bb774b6f4 100644 --- a/Logs/SingleValue.hs +++ b/Logs/SingleValue.hs @@ -60,6 +60,6 @@ getLog = newestValue <$$> readLog setLog :: (SingleValueSerializable v) => FilePath -> v -> Annex () setLog f v = do - now <- liftIO getPOSIXTime - let ent = LogEntry now v + now <- liftIO getPOSIXTime + let ent = LogEntry now v Annex.Branch.change f $ \_old -> showLog (S.singleton ent) |