[zip] fix last modification time for zipped file

WARNING: This sets the last mod time as UTC. Issue filed here for
explanation:
https://github.com/jgm/zip-archive/issues/67

src/Gargantext/API/Node/Document/Export.hs

@@ -16,6 +16,7 @@ import Data.ByteString.Lazy.Char8 qualified as BSC
 import Data.Csv (encodeDefaultOrderedByName)
 import Data.Text qualified as T
 import Data.Text.Encoding qualified as TE
+import Data.Time.Clock.System (getSystemTime, systemSeconds)
 import Data.Version (showVersion)
 import Gargantext.API.Node.Document.Export.Types
 import Gargantext.API.Prelude (GargNoServer, GargServer)
@@ -79,8 +80,11 @@ getDocumentsJSONZip :: NodeId
                     -> GargNoServer (Headers '[Header "Content-Disposition" T.Text] DocumentExportZIP) -- [Document]
 getDocumentsJSONZip userNodeId pId = do
   dJSON <- getDocumentsJSON userNodeId pId
+  systime <- liftBase getSystemTime
   let dexp = getResponse dJSON
-  let dexpz = DocumentExportZIP { _dez_dexp = dexp, _dez_doc_id = pId }
+  let dexpz = DocumentExportZIP { _dez_dexp = dexp
+                                , _dez_doc_id = pId
+                                , _dez_last_modified = fromIntegral $ systemSeconds systime }
   pure $ addHeader (T.concat [ "attachment; filename="
                              , dezFileName dexpz
                              , ".zip" ]) dexpz

src/Gargantext/API/Node/Document/Export/Types.hs

@@ -25,7 +25,7 @@ import Gargantext.Database.Admin.Types.Hyperdata.Document ( HyperdataDocument(..
 import Gargantext.Database.Admin.Types.Node (DocId)
 import Gargantext.Database.Schema.Node (NodePoly(..))
 import Gargantext.Utils.Servant (ZIP)
-import Gargantext.Utils.Zip (zipContentsPure)
+import Gargantext.Utils.Zip (zipContentsPureWithLastModified)
 import Protolude
 import Servant ((:>), (:<|>), Get, Header, Headers(..), JSON, MimeRender(..), PlainText, Summary)
 
@@ -38,8 +38,9 @@ data DocumentExport =
 
 -- | This is to represent a zipped document export. We want to have doc_id in zipped file name.
 data DocumentExportZIP =
-  DocumentExportZIP { _dez_dexp   :: DocumentExport
-                    , _dez_doc_id :: DocId } deriving (Generic)
+  DocumentExportZIP { _dez_dexp          :: DocumentExport
+                    , _dez_doc_id        :: DocId
+                    , _dez_last_modified :: Integer } deriving (Generic)
     
     
 data Document =
@@ -125,4 +126,4 @@ dezFileName (DocumentExportZIP { .. }) = "GarganText_DocsList-" <> show _dez_doc
     
 instance MimeRender ZIP DocumentExportZIP where
   mimeRender _ dexpz@(DocumentExportZIP { .. }) =
-    zipContentsPure (T.unpack $ dezFileName dexpz) (encode _dez_dexp)
+    zipContentsPureWithLastModified (T.unpack $ dezFileName dexpz) (encode _dez_dexp) _dez_last_modified

src/Gargantext/Utils/Zip.hs

@@ -50,3 +50,9 @@ zipContentsPure :: FilePath -> BSC.ByteString -> BSC.ByteString
 zipContentsPure fpath bscContents = ZArch.fromArchive (ZArch.addEntryToArchive e ZArch.emptyArchive)
   where
     e = ZArch.toEntry fpath 0 bscContents
+
+zipContentsPureWithLastModified :: FilePath -> BSC.ByteString -> Integer -> BSC.ByteString
+zipContentsPureWithLastModified fpath bscContents lastModified =
+  ZArch.fromArchive (ZArch.addEntryToArchive e ZArch.emptyArchive)
+  where
+    e = ZArch.toEntry fpath lastModified bscContents