pyrox.dev
1diff --git a/HSH/ShellEquivs.hs b/HSH/ShellEquivs.hs
2index f9287e8..b132737 100644
3--- a/HSH/ShellEquivs.hs
4+++ b/HSH/ShellEquivs.hs
5@@ -223,9 +223,9 @@ catToFIFO fp ichan =
6 return (ChanString "")
7
8 fifoOpen :: FilePath -> IO Handle
9-fifoOpen fp =
10- do fd <- throwErrnoPathIf (< 0) "HSH fifoOpen" fp $
11- openFd fp WriteOnly Nothing defaultFileFlags
12+fifoOpen fp =
13+ do fd <- throwErrnoPathIf (< 0) "HSH fifoOpen" fp $
14+ openFd fp WriteOnly defaultFileFlags
15 fdToHandle fd
16
17 #endif