more remote debugging

haskell · Apr 28, 2018 · 811fbca · 811fbca
1 parent e213b21
commit 811fbca
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs
@@ -1,9 +1,11 @@
+import Control.Monad.IO.Class
 import System.FilePath (normalise)
 import Test.Cabal.Prelude
 main = setupTest $ do
   tmpdir <- fmap testTmpDir getTestEnv
   let fn = tmpdir </> "sources"
   setup "sdist" ["--list-sources=" ++ fn]
+  liftIO $ putStrLn =<< readFile fn
   -- --list-sources outputs with slashes on posix and backslashes on Windows. 'normalise' converts our needle to the necessary format.
   assertFileDoesContain fn $ normalise "data/blah/a.dat"
   assertFileDoesContain fn $ normalise "extra-src/blah/a.html"