@@ -20,6 +20,7 @@ import Data.List as L
2020import Data.Monoid
2121import Data.Text as T
2222import Data.Typeable
23+import Prelude as P
2324import Text.Read
2425import Text.XML.DOM.Parser.Types
2526import Text.XML.Lens
@@ -93,7 +94,7 @@ maybeReadContent
9394maybeReadContent f t = maybe (Left msg) Right $ f t
9495 where
9596 msg = "Not readable " <> n <> ": " <> t
96− n = T.pack $ show $ typeRep (Proxy :: Proxy a)
97+ n = T.pack $ P.show $ typeRep (Proxy :: Proxy a)
9798
9899
99100-- | Tries to read given text to value using 'Read'. Useful to use