Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix compilation error

Browse source
This commit is contained in:
Victor Denisov 2020-01-01 17:38:13 -08:00
parent bcfbcc2918
commit 30ef4e1570
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Database/MongoDB/Internal/Network.hs
View file

@ -79,9 +79,9 @@ lookupSeedList :: N.HostName -> IO [Host]
-- ^ Retrieves the replica set seed list from the SRV DNS record for the given hostname -- ^ Retrieves the replica set seed list from the SRV DNS record for the given hostname
lookupSeedList hostname = do lookupSeedList hostname = do
rs <- makeResolvSeed defaultResolvConf rs <- makeResolvSeed defaultResolvConf
res <- withResolver rs $ \resolver -> lookupSRV resolver $ "_mongodb._tcp." ++ pack hostname res <- withResolver rs $ \resolver -> lookupSRV resolver $ pack $ "_mongodb._tcp." ++ hostname
case res of case res of
Left _ -> pure [] Left _ -> pure []
Right srv -> pure $ map (\(_, _, por, tar) -> Right srv -> pure $ map (\(_, _, por, tar) ->
let tar' = dropWhileEnd (=='.') (unpack tar) let tar' = dropWhileEnd (=='.') (unpack tar)
in Host tar' (PortNumber . fromIntegral $ por)) srv in Host tar' (PortNumber . fromIntegral $ por)) srv

4
mongoDB.cabal
View file

@ -129,7 +129,11 @@ Benchmark bench
, lifted-base >= 0.1.0.3 , lifted-base >= 0.1.0.3
, transformers-base >= 0.4.1 , transformers-base >= 0.4.1
, hashtables >= 1.1.2.0 , hashtables >= 1.1.2.0
, fail
, dns
, http-types
, criterion , criterion
, tls >= 1.3.0
if flag(_old-network) if flag(_old-network)
-- "Network.BSD" is only available in network < 2.9 -- "Network.BSD" is only available in network < 2.9