diff --git a/Stackage/InstallInfo.hs b/Stackage/InstallInfo.hs index 8f17290b..c15eee9c 100644 --- a/Stackage/InstallInfo.hs +++ b/Stackage/InstallInfo.hs @@ -126,6 +126,14 @@ getInstallInfo settings = do , show now ] + System.IO.UTF8.writeFile (incexc "slug") $ concat + [ date + , "-" + , ghcVer + , if requireHaskellPlatform settings then "hp" else "" + , if isInc then "-inc" else "-exc" + ] + return ii biToSPI :: BuildInfo -> SelectedPackageInfo diff --git a/Stackage/ServerFiles.hs b/Stackage/ServerFiles.hs index 6473e617..bd08900c 100644 --- a/Stackage/ServerFiles.hs +++ b/Stackage/ServerFiles.hs @@ -37,7 +37,7 @@ createHackageFile isInc hp ii ghcVer date hackageH tarballH = do hPutStr tarballH $ concat [ "#!/bin/bash -ex\n\ntar czfv " , stackageFP - , " hackage desc ../build*" + , " hackage desc slug ../build*" ] indextargz <- getTarballName indexLBS <- L.readFile indextargz