Fix an incomplete pattern match

This commit is contained in:
Michael Snoyman 2015-05-11 08:34:30 +03:00
parent cb85530cfa
commit 13d93fc25e

View File

@ -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
}