Support for 32-bit Linux.

ekarayel · Jul 16, 2016 · aa0047e · aa0047e
1 parent 6eb0221
commit aa0047e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Sync/MerkleTree/Analyse.hs b/src/Sync/MerkleTree/Analyse.hs
@@ -58,7 +58,7 @@ analyseEntry fp ignore path name
                   [ FileEntry $ File
                     { f_name = path'
                     , f_size = FileSize filesize
-                    , f_modtime = FileModTime modtime
+                    , f_modtime = FileModTime $ fromIntegral modtime
                     } ]
           | isDirectory status =
               liftM ((DirectoryEntry path'):) $ analyseSubDirectory fp' ignore path'

diff --git a/src/Sync/MerkleTree/Client.hs b/src/Sync/MerkleTree/Client.hs
@@ -189,7 +189,7 @@ synchronizeNewOrChangedEntry pg fp entry =
              loop firstResult
              liftIO $ hClose h
              liftIO $ modifyIORef (pg_count pg) (subtract 1)
-             let modTime = (CTime $ unModTime $ f_modtime f)
+             let modTime = (CTime $ fromIntegral $ unModTime $ f_modtime f)
              liftIO $ setFileTimes (toFilePath fp $ f_name f) modTime modTime
       DirectoryEntry p ->
           do liftIO $ modifyIORef (pg_count pg) (subtract 1)