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 =
bracket (do env <- getEnvironment
(_, out, _, h) <- runInteractiveProcess "./test/ldap.js" [] Nothing
(Just (("PORT", show port) :
(Just (("PORT", show (port :: Int)) :
("SSL_CERT", "./ssl/cert.pem") :
("SSL_KEY", "./ssl/key.pem") :
env))
hGetLine out
forkIO (() <$ tryIOError (forever (hGetLine out >>= putStrLn)))
_ <- hGetLine out
_ <- forkIO (() <$ tryIOError (forever (hGetLine out >>= putStrLn)))
return h)
(\h -> do terminateProcess h
waitForProcess h)