[commit: Cabal] : Distribution/Client/SrcDist.hs: fixed warning on -Wall (unused result) (4da87c0)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/4da87c0587c553a38f2bb97d707846911aa653d8

>---------------------------------------------------------------

commit 4da87c0587c553a38f2bb97d707846911aa653d8
Author: Sergei Trofimovich <slyfox at community.haskell.org>
Date:   Sun Dec 20 21:17:17 2009 +0000

    Distribution/Client/SrcDist.hs: fixed warning on -Wall (unused result)

>---------------------------------------------------------------

 cabal-install/Distribution/Client/SrcDist.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Distribution/Client/SrcDist.hs b/cabal-install/Distribution/Client/SrcDist.hs
index c5a16a7..0c37bbb 100644
--- a/cabal-install/Distribution/Client/SrcDist.hs
+++ b/cabal-install/Distribution/Client/SrcDist.hs
@@ -55,7 +55,7 @@ sdist flags = do
              | otherwise = pkg
     setupMessage verbosity "Building source dist for" (packageId pkg')
 
-    if snapshot
+    _ <- if snapshot
       then prepareSnapshotTree verbosity pkg' mb_lbi distPref tmpDir pps
       else prepareTree         verbosity pkg' mb_lbi distPref tmpDir pps
     targzFile <- createArchive verbosity pkg tmpDir distPref