haskell/ldap-client
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed some warnings in SpecHelper.hs

Browse Source
This commit is contained in:
Matthias Hörmann 2016-12-26 19:34:34 +01:00 committed by Matvey Aksenov
parent 8e144e01d9
commit 7a2cf37141
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/SpecHelper.hs
View File

@ -41,12 +41,12 @@ locally :: (Ldap -> IO a) -> IO (Either LdapError a)
locally f = locally f =
bracket (do env <- getEnvironment bracket (do env <- getEnvironment
(_, out, _, h) <- runInteractiveProcess "./test/ldap.js" [] Nothing (_, out, _, h) <- runInteractiveProcess "./test/ldap.js" [] Nothing
(Just (("PORT", show port) : (Just (("PORT", show (port :: Int)) :
("SSL_CERT", "./ssl/cert.pem") : ("SSL_CERT", "./ssl/cert.pem") :
("SSL_KEY", "./ssl/key.pem") : ("SSL_KEY", "./ssl/key.pem") :
env)) env))
hGetLine out _ <- hGetLine out
forkIO (() <$ tryIOError (forever (hGetLine out >>= putStrLn))) _ <- forkIO (() <$ tryIOError (forever (hGetLine out >>= putStrLn)))
return h) return h)
(\h -> do terminateProcess h (\h -> do terminateProcess h
waitForProcess h) waitForProcess h)