7d556ba · typeable/dom-parser

git.iko.soy/typeable/dom-parser

Make the package compile with ghc-9 (#14)

commit7d556ba528bfa216e99714f8a0d4d00f452803a9 authorYuras <shumovichy@gmail.com> dateMon 11 Apr 2022, 13:47 (5 years ago) parent2ee98e6

2 files changed+4−4

unifiedsplit

src/Text/XML/DOM/Parser/Content.hs+2−2

@@ -114,8 +114,8 @@ readBool t =

114114 tvals = ["y", "yes", "t", "true", "1"]

115115 fvals = ["n", "no", "f", "false", "0"]

116116 in if

117− | lowt `elem` tvals -> Right True

118− | lowt `elem` fvals -> Right False

117+ | lowt `L.elem` tvals -> Right True

118+ | lowt `L.elem` fvals -> Right False

119119 | otherwise ->

120120 Left $ "Could not read " <> t <> " as Bool"

121121

src/Text/XML/DOM/Parser/Types.hs+2−2

@@ -89,8 +89,6 @@ data NameMatcher = NameMatcher

8989 -- ^ Field for 'Show' instance and bulding usefull errors

9090 }

9191

92−makeLenses ''NameMatcher

93−

9492-- | Instance use 'matchCILocalName' as most general and liberal

9593-- matching strategy (while XML is often malformed).

9694--

@@ -122,6 +120,8 @@ matchCILocalName tname = NameMatcher

122120 , _nmShow = tname

123121 }

124122

123+makeLenses ''NameMatcher

124+

125125-- | Makes matcher which match name by 'Eq' with given

126126--

127127-- @since 2.0.0