From ee3ff0e5845d937b159e71ba20cf648d23f45f0f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
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