I want to parse a JSON object and create a JSONEvent with the given `name` and `args`

I'm using Aeson, and right now I'm stucked on converting `"args":[{"a": "b"}]` to a `[(String, String)]`.

Thank's in advance!

```
{-# LANGUAGE OverloadedStrings #-}

import Control.Applicative
import Data.Aeson

data JSONEvent = JSONEvent [(String, String)] (Maybe String) deriving Show

instance FromJSON JSONEvent where
  parseJSON j = do
    o <- parseJSON j
    name <- o .:? "name"
    args <- o .:? "args" .!= []
    return $ JSONEvent args name

let decodedEvent = decode "{\"name\":\"edwald\",\"args\":[{\"a\": \"b\"}]}" :: Maybe JSONEvent

```