Commit 2ae262e2 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Display the right message for sdist --snapshot

parent 7a09d559
......@@ -126,10 +126,11 @@ sdist pkg mb_lbi flags mkTmpDir pps = do
withTempDirectory verbosity tmpDir $ do
setupMessage verbosity "Building source dist for" (packageId pkg)
date <- toCalendarTime =<< getClockTime
let pkg' | snapshot = snapshotPackage date pkg
| otherwise = pkg
setupMessage verbosity "Building source dist for" (packageId pkg')
if snapshot
then prepareSnapshotTree verbosity pkg' mb_lbi distPref tmpDir pps
else prepareTree verbosity pkg' mb_lbi distPref tmpDir pps
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment