From 13d93fc25e898c003d2c3fcc1347d153b825f5a7 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 11 May 2015 08:34:30 +0300
Subject: [PATCH] Fix an incomplete pattern match

---
 Handler/UploadV2.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Handler/UploadV2.hs b/Handler/UploadV2.hs
index f05e175..b8cd813 100644
--- a/Handler/UploadV2.hs
+++ b/Handler/UploadV2.hs
@@ -238,8 +238,9 @@ finishUpload
             , stackageGhcMajorVersion = ghcMajorVersionMay
             }
         case siType of
-            STNightly -> insert_ Nightly
-                { nightlyDay = utctDay now
+            STNightly -> invalidArgs ["No longer support STNightly, use STNightly2"]
+            STNightly2 day -> insert_ Nightly
+                { nightlyDay = day
                 , nightlyGhcVersion = ghcVersion
                 , nightlyStackage = sid
                 }