From 0e29784c4191cbe84687268dae9718fbdac0fcca Mon Sep 17 00:00:00 2001
From: Don Waldhalm <don.waldhalm@gmail.com>
Date: Thu, 18 Jan 2018 15:06:30 -0500
Subject: [PATCH] ease single directory requirement

---
 src/Stack/Setup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/Setup.hs b/src/Stack/Setup.hs
index b9c0ffda7c..769fe6cae9 100644
--- a/src/Stack/Setup.hs
+++ b/src/Stack/Setup.hs
@@ -1466,7 +1466,7 @@ expectSingleUnpackedDir :: (MonadIO m, MonadThrow m) => Path Abs File -> Path Ab
 expectSingleUnpackedDir archiveFile destDir = do
     contents <- listDir destDir
     case contents of
-        ([dir], []) -> return dir
+        ([dir], _ ) -> return dir
         _ -> throwString $ "Expected a single directory within unpacked " ++ toFilePath archiveFile
 
 -- | Download 7z as necessary, and get a function for unpacking things.