Merge pull request #67 from haskell-works/append-metadata-instead-of-…

…prepend Append metadata instead of prepend
haskell · May 29, 2019 · 901258a · 901258a
2 parents 9a0b2bd + df2747a
commit 901258a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/App/Commands/SyncToArchive.hs b/src/App/Commands/SyncToArchive.hs
@@ -125,7 +125,7 @@ runSyncToArchive opts = do
 
                 metas <- createMetadata tempPath pInfo [("store-path", LC8.pack storePath)]
 
-                IO.createTar tempArchiveFile (metas:rp2)
+                IO.createTar tempArchiveFile (rp2 <> [metas])
 
                 void $ catchError (liftIO (LBS.readFile tempArchiveFile) >>= IO.writeResource envAws targetFile) $ \case
                   e@(AwsAppError (HTTP.Status 301 _)) -> do