@@ -20,6 +20,7 @@ import Data.List as L
20import Data.Monoid
20import Data.Monoid
21import Data.Text as T
21import Data.Text as T
22import Data.Typeable
22import Data.Typeable
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
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