diff --git a/cabal-install/Distribution/Client/CmdSdist.hs b/cabal-install/Distribution/Client/CmdSdist.hs
index 748efd33f59..ebdb1eeb81c 100644
--- a/cabal-install/Distribution/Client/CmdSdist.hs
+++ b/cabal-install/Distribution/Client/CmdSdist.hs
@@ -211,7 +211,7 @@ packageToSdist verbosity listSources archiveFormat outputFile pkg = do
             
             entries <- execWriterT (evalStateT entriesM [])
             write . GZip.compress . Tar.write $ entries
-            notice verbosity $ "Wrote tarball sdist to " ++ outputPath ++ "\n"
+            notice verbosity $ "Wrote tarball sdist to " ++ outputFile ++ "\n"
         | archiveFormat == ZipFormat ->
             die' verbosity "'.zip' sdists are not yet supported."
 
diff --git a/cabal-install/Distribution/Client/DistDirLayout.hs b/cabal-install/Distribution/Client/DistDirLayout.hs
index 46b70196a74..3133fa35795 100644
--- a/cabal-install/Distribution/Client/DistDirLayout.hs
+++ b/cabal-install/Distribution/Client/DistDirLayout.hs
@@ -26,7 +26,7 @@ import Data.Maybe (fromMaybe)
 import System.FilePath
 
 import Distribution.Package
-         ( PackageId(..), ComponentId, UnitId )
+         ( PackageId, ComponentId, UnitId )
 import Distribution.Client.Setup
          ( ArchiveFormat(..) )
 import Distribution.Compiler