Merge pull request #3794 from dwaldhalm/master

ease single directory requirement
commercialhaskell · Jan 19, 2018 · 02edec9 · 02edec9
2 parents ceef99a + 0e29784
commit 02edec9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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.