From 1bf85f3bbd62555d18f9b3ff064a8921048405e4 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Tue, 26 Apr 2016 23:17:05 -0400
Subject: fix build on 32bit platforms

---
 kiki.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'kiki.hs')

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
-- 
cgit v1.2.3