formActionValue query = do
  [form] <- htmlQuery query
  let cursor = parseHTML form
      XML.NodeElement (XML.Element name attr _nodes)   = XMLCursor.node cursor
      Just action = Map.lookup "action" attr
  return action
formActionValue query = do
  [form] <- htmlQuery query
  let cursor = parseHTML form
      XML.NodeElement (XML.Element name attr _nodes)   = XMLCursor.node cursor
      Just action = Map.lookup "action" attr
  return action
formActionValue query = do
  [form] <- htmlQuery query
  let cursor = parseHTML form
      XML.NodeElement (XML.Element name attr _nodes)   = XMLCursor.node cursor
      Just action = Map.lookup "action" attr
  return action