646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
18 lines
530 B
Diff
18 lines
530 B
Diff
diff --git a/HSH/ShellEquivs.hs b/HSH/ShellEquivs.hs
|
|
index f9287e8..b132737 100644
|
|
--- a/HSH/ShellEquivs.hs
|
|
+++ b/HSH/ShellEquivs.hs
|
|
@@ -223,9 +223,9 @@ catToFIFO fp ichan =
|
|
return (ChanString "")
|
|
|
|
fifoOpen :: FilePath -> IO Handle
|
|
-fifoOpen fp =
|
|
- do fd <- throwErrnoPathIf (< 0) "HSH fifoOpen" fp $
|
|
- openFd fp WriteOnly Nothing defaultFileFlags
|
|
+fifoOpen fp =
|
|
+ do fd <- throwErrnoPathIf (< 0) "HSH fifoOpen" fp $
|
|
+ openFd fp WriteOnly defaultFileFlags
|
|
fdToHandle fd
|
|
|
|
#endif
|