stringAttr :: Text -> Cursor -> Text
stringAttr t cur =
  case node cur of
    X.NodeElement e ->
      case M.lookup (X.Name t Nothing Nothing) (X.elementAttributes e) of
           Just x  -> x
           Nothing -> ""
    _ -> ""
stringAttr :: Text -> Cursor -> Text
stringAttr t cur =
  case node cur of
    X.NodeElement e ->
      case M.lookup (X.Name t Nothing Nothing) (X.elementAttributes e) of
           Just x  -> x
           Nothing -> ""
    _ -> ""
stringAttr t cur =
  case node cur of
    X.NodeElement e ->
      case M.lookup (X.Name t Nothing Nothing) (X.elementAttributes e) of
           Just x  -> x
           Nothing -> ""
    _ -> ""