moar debug

Author: snoyberg

etc/scripts/release.hs

@@ -211,6 +211,9 @@ rules global@Global{..} args = do
                 ["--pedantic", "--no-haddock-deps", "--test"]
                 ["--haddock" | gTestHaddocks]
                 ["stack"]
+            liftIO $ System.Directory.getDirectoryContents tmpDir >>= \x -> print ("tmpDir", tmpDir, x)
+            () <- cmd ["find", tmpDir]
+            () <- cmd ["find", gProjectRoot </> releaseBinDir]
             () <- cmd
                 [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
                 ["exec"]