Skip to content
Snippets Groups Projects
Commit 28a7a416 authored by dterei's avatar dterei
Browse files

Fix validation error

parent 6d8b741f
No related branches found
No related tags found
No related merge requests found
......@@ -25,7 +25,9 @@ module System.Posix.Temp (
import System.IO
import System.Posix.IO
import System.Posix.Types
#if !defined(__GLASGOW_HASKELL__) && !defined(__HUGS__)
import System.Posix.Directory (createDirectory)
#endif
import Foreign.C
#if __GLASGOW_HASKELL__ > 700
......@@ -78,7 +80,7 @@ mkdtemp template' = do
let template = template' ++ "XXXXXX"
#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__)
withFilePath template $ \ ptr -> do
throwErrnoIfNull "mkdtemp" (c_mkdtemp ptr)
_ <- throwErrnoIfNull "mkdtemp" (c_mkdtemp ptr)
name <- peekFilePath ptr
return name
#else
......
......@@ -22,10 +22,12 @@ module System.Posix.Temp.ByteString (
#include "HsUnix.h"
import System.IO ( Handle, openFile, IOMode(..) )
import System.IO
import System.Posix.IO
import System.Posix.Types
#if !defined(__GLASGOW_HASKELL__) && !defined(__HUGS__)
import System.Posix.Directory (createDirectory)
#endif
import Foreign.C
......@@ -69,7 +71,7 @@ mkdtemp template' = do
let template = template' `B.append` (BC.pack "XXXXXX")
#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__)
withFilePath template $ \ ptr -> do
throwErrnoIfNull "mkdtemp" (c_mkdtemp ptr)
_ <- throwErrnoIfNull "mkdtemp" (c_mkdtemp ptr)
name <- peekFilePath ptr
return name
#else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment