b8d9af7 · typeable/dom-parser

git.iko.soy/typeable/dom-parser

on master help sign in

adjust to support text>=2.1.2 (Data.Text.show)

b8d9af7odr1 year ago

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

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

20import Data.Monoid

21import Data.Text as T

22import Data.Typeable

23+import Prelude as P

23import Text.Read

24import Text.Read

24import Text.XML.DOM.Parser.Types

25import Text.XML.DOM.Parser.Types

25import Text.XML.Lens

26import Text.XML.Lens

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

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

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

94 where

95 where

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

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

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

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

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

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