CreateNamedPipe: improve error message

And fix haddock.
IntersectMBO · Jul 26, 2021 · d655c7c · d655c7c
1 parent 84ee095
commit d655c7c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/System/Win32/NamedPipes.hsc b/src/System/Win32/NamedPipes.hsc
@@ -130,7 +130,7 @@ pIPE_UNLIMITED_INSTANCES = #const PIPE_UNLIMITED_INSTANCES
 -- >                        Nothing
 --
 --
-createNamedPipe :: String   -- ^ pipe name of form @\.\pipe\{pipename}@
+createNamedPipe :: String   -- ^ pipe name of form @\\.\pipe\{pipename}@
                 -> OpenMode
                 -> PipeMode
                 -> DWORD    -- ^ nMaxInstances
@@ -143,7 +143,7 @@ createNamedPipe name openMode pipeMode
                 nMaxInstances nOutBufferSize nInBufferSize
                 nDefaultTimeOut mb_attr =
   withTString name $ \ c_name ->
-    failIf (==iNVALID_HANDLE_VALUE) "CreateNamedPipe" $
+    failIf (==iNVALID_HANDLE_VALUE) ("CreateNamedPipe ('" ++ name ++ "')") $
       c_CreateNamedPipe c_name openMode pipeMode
                         nMaxInstances nOutBufferSize nInBufferSize
                         nDefaultTimeOut (maybePtr mb_attr)