xml-extractors-0.2.1.0: src/Text/XML/Light/Extractors/Extra.hs

module Text.XML.Light.Extractors.Extra where

import Safe (readMay)
import Text.XML.Light.Extractors


float :: (Floating a, Read a) => String -> Either Err a
float s = 
  maybe (Left $ ErrMsg ("Expected float, found: " ++ show s)) return (readMay s)


integer :: (Integral a, Read a) => String -> Either Err a
integer s = 
  maybe (Left $ ErrMsg ("Expected integer, found: " ++ show s)) return (readMay s)