attempt to debug why PR messages are being cut off

This commit is contained in:
Ryan Mulligan 2020-04-14 21:18:45 -07:00
parent 868f3f7555
commit ed230936ac
2 changed files with 3 additions and 0 deletions

View File

@ -30,6 +30,7 @@ import Text.Regex.Applicative.Text ((=~))
import Utils (UpdateEnv (..), Version)
import qualified Utils as U
import System.IO.Temp (withSystemTempFile)
import System.IO (hFlush)
default (T.Text)
@ -50,6 +51,7 @@ pr base msg = do
(T.unpack $ base <> "-prmsg")
(\fp handle -> do
T.hPutStr handle msg
hFlush handle
runProcess_ $
proc "hub" ["pull-request", "-b", T.unpack base, "-F", fp])

View File

@ -340,6 +340,7 @@ publishPackage log updateEnv oldSrcUrl newSrcUrl attrPath result opDiff msgs = d
cveRep
cachixTestInstructions
nixpkgsReviewMsg
liftIO $ log prMsg
if (doPR . options $ updateEnv)
then do
let base =