move sanity check

This commit is contained in:
Joey Hess 2013-11-25 13:46:24 -04:00
parent dfdffecacf
commit 6ee56ce685

View file

@ -160,12 +160,12 @@ upgradeToDistribution newdir cleanup distributionfile = do
[ Param "attach", File distributionfile [ Param "attach", File distributionfile
, Param "-mountroot", File tmpdir , Param "-mountroot", File tmpdir
] ]
sanitycheck tmpdir
void $ boolSystem "cp" void $ boolSystem "cp"
[ Param "-R" [ Param "-R"
, File $ tmpdir </> installBase , File $ tmpdir </> installBase
, File $ newdir , File $ newdir
] ]
sanitycheck newdir
void $ boolSystem "hdiutil" void $ boolSystem "hdiutil"
[ Param "eject" [ Param "eject"
, Param distributionfile , Param distributionfile