Have uploader specify the nightly day

Handler/UploadV2.hs

@@ -115,31 +115,32 @@ doUpload status uid ident bundleFP = do
             <*> yaml "docs-map.yaml"
 
     now <- liftIO getCurrentTime
-    let day = tshow $ utctDay now
 
     let theSiGhcVersion = siGhcVersion $ bpSystemInfo siPlan
         ghcVersion = display theSiGhcVersion
         ghcMajorVersionMay = case versionBranch theSiGhcVersion of
             (a:b:_) -> Just (GhcMajorVersion a b)
             _ -> Nothing
-        slug' =
+    slug' <-
         case siType of
-                STNightly -> "nightly-" ++ day
+            STNightly -> invalidArgs ["No longer support STNightly, use STNightly2"]
-                STLTS major minor -> concat
+            STNightly2 day -> return $ "nightly-" ++ tshow day
+            STLTS major minor -> return $ concat
                 [ "lts-"
                 , tshow major
                 , "."
                 , tshow minor
                 ]
-        title =
+    title <-
         case siType of
-                STNightly -> concat
+            STNightly -> invalidArgs ["No longer support STNightly, use STNightly2"]
+            STNightly2 day -> return $ concat
                 [ "Stackage Nightly "
-                    , day
+                , tshow day
                 , ", GHC "
                 , ghcVersion
                 ]
-                STLTS major minor -> concat
+            STLTS major minor -> return $ concat
                 [ "LTS Haskell "
                 , tshow major
                 , "."

stackage-server.cabal

@@ -168,7 +168,7 @@ library
                  , deepseq
                  , deepseq-generics
                  , auto-update
-                 , stackage-types
+                 , stackage-types >= 1.0.1
                  , stackage-build-plan >= 0.1.1
                  , yesod-sitemap
                  , streaming-commons