diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/MapLog.hs | 2 | ||||
| -rw-r--r-- | Logs/SingleValue.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Logs/MapLog.hs b/Logs/MapLog.hs index 1725ef953..dd3cc0696 100644 --- a/Logs/MapLog.hs +++ b/Logs/MapLog.hs @@ -15,7 +15,7 @@ import qualified Data.Map as M import Data.Time.Clock.POSIX import Data.Time import System.Locale - + import Common data TimeStamp = Unknown | Date POSIXTime 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) |