xmlII :: String -> Element -> Maybe ImageInfo
xmlII tg p = do
   guard (elName p == nsName tg)
   let ts = fromMaybe nullTimestamp (pAttr "timestamp" p)
   let us = fromMaybe nullUser (pAttr "user" p)
   let wi = pAttr "width" p >>= readI
   let he = pAttr "height" p >>= readI
   let si = pAttr "size" p >>= readI
   let ur = pAttr "url" p
   let co = pAttr "comment" p
   let sh = pAttr "sha1" p
   let ar = pAttr "archivename" p
   let bi = pAttr "bitdepth" p >>= readI
   let mi = pAttr "mime" p
   return emptyImageInfo
    { iiTimestamp = ts
    , iiUser      = us
    , iiWidth     = wi
    , iiHeight    = he
    , iiSize      = si
    , iiURL       = ur
    , iiComment   = co
    , iiSHA1      = sh
    , iiArchive   = ar
    , iiBitDepth  = bi
    , iiMime      = mi
    }
xmlII :: String -> Element -> Maybe ImageInfo
xmlII tg p = do
   guard (elName p == nsName tg)
   let ts = fromMaybe nullTimestamp (pAttr "timestamp" p)
   let us = fromMaybe nullUser (pAttr "user" p)
   let wi = pAttr "width" p >>= readI
   let he = pAttr "height" p >>= readI
   let si = pAttr "size" p >>= readI
   let ur = pAttr "url" p
   let co = pAttr "comment" p
   let sh = pAttr "sha1" p
   let ar = pAttr "archivename" p
   let bi = pAttr "bitdepth" p >>= readI
   let mi = pAttr "mime" p
   return emptyImageInfo
    { iiTimestamp = ts
    , iiUser      = us
    , iiWidth     = wi
    , iiHeight    = he
    , iiSize      = si
    , iiURL       = ur
    , iiComment   = co
    , iiSHA1      = sh
    , iiArchive   = ar
    , iiBitDepth  = bi
    , iiMime      = mi
    }
xmlII tg p = do
   guard (elName p == nsName tg)
   let ts = fromMaybe nullTimestamp (pAttr "timestamp" p)
   let us = fromMaybe nullUser (pAttr "user" p)
   let wi = pAttr "width" p >>= readI
   let he = pAttr "height" p >>= readI
   let si = pAttr "size" p >>= readI
   let ur = pAttr "url" p
   let co = pAttr "comment" p
   let sh = pAttr "sha1" p
   let ar = pAttr "archivename" p
   let bi = pAttr "bitdepth" p >>= readI
   let mi = pAttr "mime" p
   return emptyImageInfo
    { iiTimestamp = ts
    , iiUser      = us
    , iiWidth     = wi
    , iiHeight    = he
    , iiSize      = si
    , iiURL       = ur
    , iiComment   = co
    , iiSHA1      = sh
    , iiArchive   = ar
    , iiBitDepth  = bi
    , iiMime      = mi
    }