From 8bf144a9023c1c9f7537d58589d970f068892ba6 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 23 Nov 2014 14:07:15 +0200
Subject: [PATCH] Add a slug file fpco/stackage-server#37

---
 Stackage/InstallInfo.hs | 8 ++++++++
 Stackage/ServerFiles.hs | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

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