This commit is contained in:
Joey Hess 2013-11-25 14:47:56 -04:00
parent 85a82957ea
commit ee3ff0e584

View file

@ -208,7 +208,7 @@ upgradeToDistribution newdir cleanup distributionfile = do
=<< dirContents srcdir
#endif
sanitycheck dir =
unlessM doesDirectoryExist $
unlessM (doesDirectoryExist dir) $
error $ "did not find " ++ dir ++ " in " ++ distributionfile
makeorigsymlink olddir = do
let origdir = parentDir olddir </> installBase