import Text.Printf ( printf )
import Text.Read ( readMaybe )
import Text.XML.HXT.Arrow.Pickle (
- XmlPickler(..),
xpText,
xpWrapMaybe )
import Text.XML.HXT.Arrow.Pickle.Xml ( PU )
-instance XmlPickler Bool where
- xpickle =
- (to_bool, from_bool) `xpWrapMaybe` xpText
- where
- to_bool :: String -> Maybe Bool
- to_bool = readMaybe
-
- from_bool :: Bool -> String
- from_bool = show
-
-- | (Un)pickle a UTCTime without the time portion.
--