git.iko.soy/typeable/dom-parser
on master help sign in
Make the package compile with ghc-9 (#14)
7d556baYuras
src/Text/XML/DOM/Parser/Content.hs+2−2
compare with master
unifiedsplit
@@ -114,8 +114,8 @@ readBool t =
114 tvals = ["y", "yes", "t", "true", "1"]
114 tvals = ["y", "yes", "t", "true", "1"]
115 fvals = ["n", "no", "f", "false", "0"]
115 fvals = ["n", "no", "f", "false", "0"]
116 in if
116 in if
117− | lowt `elem` tvals -> Right True
117+ | lowt `L.elem` tvals -> Right True
118− | lowt `elem` fvals -> Right False
118+ | lowt `L.elem` fvals -> Right False
119 | otherwise ->
119 | otherwise ->
120 Left $ "Could not read " <> t <> " as Bool"
120 Left $ "Could not read " <> t <> " as Bool"
121
121
src/Text/XML/DOM/Parser/Types.hs+2−2
@@ -89,8 +89,6 @@ data NameMatcher = NameMatcher
89 -- ^ Field for 'Show' instance and bulding usefull errors
89 -- ^ Field for 'Show' instance and bulding usefull errors
90 }
90 }
91
91
92−makeLenses ''NameMatcher
93−
94-- | Instance use 'matchCILocalName' as most general and liberal
92-- | Instance use 'matchCILocalName' as most general and liberal
95-- matching strategy (while XML is often malformed).
93-- matching strategy (while XML is often malformed).
96--
94--
@@ -122,6 +120,8 @@ matchCILocalName tname = NameMatcher
122 , _nmShow = tname
120 , _nmShow = tname
123 }
121 }
124
122
123+makeLenses ''NameMatcher
124+
125-- | Makes matcher which match name by 'Eq' with given
125-- | Makes matcher which match name by 'Eq' with given
126--
126--
127-- @since 2.0.0
127-- @since 2.0.0