release: fix windows zip files when using zip-archive-0.3

Author: borsboom

etc/scripts/release.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE RecordWildCards #-}
 
 import Control.Applicative
@@ -172,7 +173,11 @@ rules global@Global{..} args = do
             entries <- forM stageFiles $ \stageFile -> do
                 Zip.readEntry
                     [Zip.OptLocation
+#if MIN_VERSION_zip_archive(0,3,0)
+                        (dropFileName (dropDirectoryPrefix (releaseStageDir </> binaryName) stageFile))
+#else
                         (dropDirectoryPrefix (releaseStageDir </> binaryName) stageFile)
+#endif
                         False]
                     stageFile
             let archive = foldr Zip.addEntryToArchive Zip.emptyArchive entries

etc/scripts/windows-releases.bat

@@ -13,5 +13,5 @@ if errorlevel 1 exit /b
 cd %BUILD_DIR%
 %RELEASE_SCRIPT% --no-test-haddocks --arch=i386 %1 %2 %3 %4 %5 %6 %7 %8 %9 release
 if errorlevel 1 exit /b
-%RELEASE_SCRIPT% --no-test-haddocks --arch=x86_64 %2 %3 %4 %5 %6 %7 %8 %9 release
+%RELEASE_SCRIPT% --no-test-haddocks --arch=x86_64 %1 %2 %3 %4 %5 %6 %7 %8 %9 release
 if errorlevel 1 exit /b