master..aff453f · typeable/dom-parser

git.iko.soy/typeable/dom-parser

4 files changed+6−4

unifiedsplit

dom-parser.cabal+3−2 src/Text/XML/DOM/Parser/Combinators.hs+1 src/Text/XML/DOM/Parser/Content.hs+1−2 src/Text/XML/DOM/Parser/Types.hs+1

dom-parser.cabal+3−2

@@ -44,12 +44,13 @@ library

4444 , TypeFamilies

4545 , TypeOperators

4646 , UndecidableInstances

47− build-depends: base >= 4.11 && < 5

47+ build-depends: base >= 4.7 && < 5

4848 , case-insensitive

4949 , containers

5050 , lens

51− , mtl < 2.3 || > 2.3

51+ , mtl

5252 , scientific

53+ , semigroups

5354 , text

5455 , transformers

5556 , xml-conduit

src/Text/XML/DOM/Parser/Combinators.hs+1

@@ -22,6 +22,7 @@ import Control.Monad.Reader

2222import Data.Foldable as F

2323import Data.List as L

2424import Data.List.NonEmpty (NonEmpty(..))

25+import Data.Monoid

2526import Data.Text as T

2627import Data.Traversable

2728import Text.XML

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

@@ -20,7 +20,6 @@ import Data.List as L

2020import Data.Monoid

2121import Data.Text as T

2222import Data.Typeable

23−import Prelude as P

2423import Text.Read

2524import Text.XML.DOM.Parser.Types

2625import Text.XML.Lens

@@ -94,7 +93,7 @@ maybeReadContent

9493maybeReadContent f t = maybe (Left msg) Right $ f t

9594 where

9695 msg = "Not readable " <> n <> ": " <> t

97− n = T.pack $ P.show $ typeRep (Proxy :: Proxy a)

96+ n = T.pack $ show $ typeRep (Proxy :: Proxy a)

9897

9998

10099-- | Tries to read given text to value using 'Read'. Useful to use

src/Text/XML/DOM/Parser/Types.hs+1

@@ -36,6 +36,7 @@ import Control.Lens

3636import Control.Monad.Except

3737import Control.Monad.Reader

3838import Data.CaseInsensitive as CI

39+import Data.Semigroup

3940import Data.String

4041import Data.Text as T

4142import GHC.Generics (Generic)