X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=blobdiff_plain;f=GHC%2FIO%2FFD.hs;h=173088561f68e5841f57c7eae39e1f69708ed35b;hp=012bb73d90cc5e5c5e9af00777d477b54dee2a8b;hb=57b9366e5fd3db86719d12b45320e6145b040fa6;hpb=55d724b80db03d10662c0dad57f2d31c55aae35e

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index 012bb73..1730885 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -139,9 +139,13 @@ writeBuf' fd buf = do
 -- opening files
 
 -- | Open a file and make an 'FD' for it.  Truncates the file to zero
--- size when the `IOMode` is `WriteMode`.  Puts the file descriptor
--- into non-blocking mode on Unix systems.
-openFile :: FilePath -> IOMode -> Bool -> IO (FD,IODeviceType)
+-- size when the `IOMode` is `WriteMode`.
+openFile
+  :: FilePath -- ^ file to open
+  -> IOMode   -- ^ mode in which to open the file
+  -> Bool     -- ^ open the file in non-blocking mode?
+  -> IO (FD,IODeviceType)
+
 openFile filepath iomode non_blocking =
   withFilePath filepath $ \ f ->