From ee3ff0e5845d937b159e71ba20cf648d23f45f0f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Nov 2013 14:47:56 -0400 Subject: [PATCH] typo --- Assistant/Upgrade.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/Upgrade.hs b/Assistant/Upgrade.hs index 899cc6e9c1..36849400db 100644 --- a/Assistant/Upgrade.hs +++ b/Assistant/Upgrade.hs @@ -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