fix build on 32bit platforms

1 files changed, 4 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 2a4dde2..9b24b91 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1573,7 +1573,10 @@ tarC (sargs,margs) = do
       KikiSuccess rt -> do
         CTime pubtime <- modificationTime <$> getFileStatus (rtPubring rt)
         let keyspec = concat . take 1 <$> Map.lookup "--secrets" margs
-            fs = tarContent rt keyspec build_ipsec (build_ssh rt pubtime) (build_secret rt)
+            pubtime64 :: Int64
+            pubtime64 = fromIntegral pubtime -- EpochTime=CTime is Int32 on some platforms
+            fs :: [(String, (Int64,Either (IO (Maybe Char8.ByteString)) Char8.ByteString))]
+            fs = tarContent rt keyspec build_ipsec (build_ssh rt pubtime64) (build_secret rt)
             es = do
                 (n,(epoch_time_int64,ebs)) <- fs
                 let mktar' = mktar n epoch_time_int64