parseOptions :: Cursor -> [Option]
parseOptions cur =
  case node cur of
    X.NodeElement e ->
     [(n, v) |
      (X.Name n _ _, v) <- M.toList (X.elementAttributes e)]
    _ -> []
parseOptions :: Cursor -> [Option]
parseOptions cur =
  case node cur of
    X.NodeElement e ->
     [(n, v) |
      (X.Name n _ _, v) <- M.toList (X.elementAttributes e)]
    _ -> []
parseOptions cur =
  case node cur of
    X.NodeElement e ->
     [(n, v) |
      (X.Name n _ _, v) <- M.toList (X.elementAttributes e)]
    _ -> []