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

Add support for snaked-cased hostnames

Browse source
This commit is contained in:
Neil Cowburn 2020-02-01 08:27:20 +00:00
parent 60c10bb5cc
commit 99ceba43a0
No known key found for this signature in database
GPG key ID: 4A07D4C2E3F34E66
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Database/MongoDB/Connection.hs
View file

@ -86,7 +86,7 @@ readHostPortM :: (MonadFail m) => String -> m Host
-- ^ Read string \"hostname:port\" as @Host hosthame (PortNumber port)@ or \"hostname\" as @host hostname@ (default port). Fail if string does not match either syntax. -- ^ Read string \"hostname:port\" as @Host hosthame (PortNumber port)@ or \"hostname\" as @host hostname@ (default port). Fail if string does not match either syntax.
-- TODO: handle Service port -- TODO: handle Service port
readHostPortM = either (fail . show) return . parse parser "readHostPort" where readHostPortM = either (fail . show) return . parse parser "readHostPort" where
hostname = many1 (letter <|> digit <|> char '-' <|> char '.') hostname = many1 (letter <|> digit <|> char '-' <|> char '.' <|> char '_')
parser = do parser = do
spaces spaces
h <- hostname h <- hostname