@@ -20,7 +20,6 @@ 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
24import Text.Read
23import Text.Read
25import Text.XML.DOM.Parser.Types
24import Text.XML.DOM.Parser.Types
26import Text.XML.Lens
25import Text.XML.Lens
@@ -94,7 +93,7 @@ maybeReadContent
94maybeReadContent f t = maybe (Left msg) Right $ f t
93maybeReadContent f t = maybe (Left msg) Right $ f t
96 msg = "Not readable " <> n <> ": " <> t
95 msg = "Not readable " <> n <> ": " <> t
97− n = T.pack $ P.show $ typeRep (Proxy :: Proxy a)
96+ n = T.pack $ show $ typeRep (Proxy :: Proxy a)
100-- | Tries to read given text to value using 'Read'. Useful to use
99-- | Tries to read given text to value using 'Read'. Useful to use