haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-29 12:20:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix an incomplete pattern match

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-11 08:34:30 +03:00
parent cb85530cfa
commit 13d93fc25e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/UploadV2.hs
View File

@ -238,8 +238,9 @@ finishUpload
, stackageGhcMajorVersion = ghcMajorVersionMay , stackageGhcMajorVersion = ghcMajorVersionMay
} }
case siType of case siType of
STNightly -> insert_ Nightly STNightly -> invalidArgs ["No longer support STNightly, use STNightly2"]
{ nightlyDay = utctDay now STNightly2 day -> insert_ Nightly
{ nightlyDay = day
, nightlyGhcVersion = ghcVersion , nightlyGhcVersion = ghcVersion
, nightlyStackage = sid , nightlyStackage = sid
} }