depot/third_party/nixpkgs/pkgs/development/haskell-modules/patches/HSH-unix-openFd.patch

18 lines
530 B
Diff
Raw Normal View History

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