{"action":"opened","issue":{"url":"https://api.github.com/repos/zalora/aeson-qq/issues/12","labels_url":"https://api.github.com/repos/zalora/aeson-qq/issues/12/labels{/name}","comments_url":"https://api.github.com/repos/zalora/aeson-qq/issues/12/comments","events_url":"https://api.github.com/repos/zalora/aeson-qq/issues/12/events","html_url":"https://github.com/zalora/aeson-qq/issues/12","id":53264906,"number":12,"title":"Pattern matching quasi-quoter","user":{"login":"ethercrow","id":222467,"avatar_url":"https://avatars.githubusercontent.com/u/222467?v=3","gravatar_id":"","url":"https://api.github.com/users/ethercrow","html_url":"https://github.com/ethercrow","followers_url":"https://api.github.com/users/ethercrow/followers","following_url":"https://api.github.com/users/ethercrow/following{/other_user}","gists_url":"https://api.github.com/users/ethercrow/gists{/gist_id}","starred_url":"https://api.github.com/users/ethercrow/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ethercrow/subscriptions","organizations_url":"https://api.github.com/users/ethercrow/orgs","repos_url":"https://api.github.com/users/ethercrow/repos","events_url":"https://api.github.com/users/ethercrow/events{/privacy}","received_events_url":"https://api.github.com/users/ethercrow/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-01-02T17:25:26Z","updated_at":"2015-01-02T17:25:26Z","closed_at":null,"body":"I'm very happy with aeson-qq for my quite simple serializing needs along the lines of:\r\n```\r\nrecordToJSON (Person name age) =\r\n    [aesonQQ| { name: #{name}, age: #{age} |]\r\n```\r\n\r\nHowever, reverse trasformation is now looking pretty ugly in comparison with all that pattern-matching on Aeson.Values and descending into arrays and values. I can't help but wonder if it's possible to have a dual quasiquoter so you could write something like this:\r\n```\r\njsonToRecord data =\r\n    let [unaesonQQ| { name: #{name}, age: #{age} }] = data\r\n    in Person name age\r\n```"}}