"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "libs/types-common/src/Data/Domain.hs" between
wire-server-2020-06-10.tar.gz and wire-server-2020-06-19.tar.gz

About: Wire (server) offers end-to-end encrypted messaging, file-sharing, video and voice calls, and guest rooms for external communication (back-end server).

Domain.hs  (wire-server-2020-06-10):Domain.hs  (wire-server-2020-06-19)
skipping to change at line 55 skipping to change at line 55
-- <label> ::= <let-dig> [ [ <ldh-str> ] <let-dig> ] -- <label> ::= <let-dig> [ [ <ldh-str> ] <let-dig> ]
-- <ldh-str> ::= <let-dig-hyp> | <let-dig-hyp> <ldh-str> -- <ldh-str> ::= <let-dig-hyp> | <let-dig-hyp> <ldh-str>
-- <let-dig-hyp> ::= <let-dig> | "-" -- <let-dig-hyp> ::= <let-dig> | "-"
-- <let-dig> ::= <letter> | <digit> -- <let-dig> ::= <letter> | <digit>
-- <letter> ::= any one of the 52 alphabetic characters A through Z in -- <letter> ::= any one of the 52 alphabetic characters A through Z in
-- upper case and a through z in lower case -- upper case and a through z in lower case
-- <digit> ::= any one of the ten digits 0 through 9 -- <digit> ::= any one of the ten digits 0 through 9
-- --
-- The domain will be normalized to lowercase when parsed. -- The domain will be normalized to lowercase when parsed.
newtype Domain = Domain {_domainText :: Text} newtype Domain = Domain {_domainText :: Text}
deriving (Eq, Generic, Show) deriving stock (Eq, Ord, Generic, Show)
domainText :: Domain -> Text domainText :: Domain -> Text
domainText = _domainText domainText = _domainText
mkDomain :: Text -> Either String Domain mkDomain :: Text -> Either String Domain
mkDomain = Atto.parseOnly (domainParser <* Atto.endOfInput) . Text.E.encodeUtf8 mkDomain = Atto.parseOnly (domainParser <* Atto.endOfInput) . Text.E.encodeUtf8
instance FromByteString Domain where instance FromByteString Domain where
parser = domainParser parser = domainParser
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)