From b021e2322fff44c96ce2e9cccf39454dfade1399 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 18 Nov 2020 15:03:30 -0400 Subject: [PATCH] avoid crash on EOF at end --- Utility/Process.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Process.hs b/Utility/Process.hs index 1348e9ee92..958d239069 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -270,7 +270,7 @@ hGetLineUntilExitOrEOF ph h = go [] Just _ -> finalcheck buf finalcheck buf = do - ready <- hWaitForInput h 0 + ready <- waitforinputorerror 0 if ready then getloop buf finalcheck -- No remaining buffered input, though the handle