{"action":"opened","issue":{"url":"https://api.github.com/repos/chrisdone/structured-haskell-mode/issues/116","labels_url":"https://api.github.com/repos/chrisdone/structured-haskell-mode/issues/116/labels{/name}","comments_url":"https://api.github.com/repos/chrisdone/structured-haskell-mode/issues/116/comments","events_url":"https://api.github.com/repos/chrisdone/structured-haskell-mode/issues/116/events","html_url":"https://github.com/chrisdone/structured-haskell-mode/issues/116","id":108073348,"number":116,"title":"Quasiquote issue","user":{"login":"ivan-m","id":792435,"avatar_url":"https://avatars.githubusercontent.com/u/792435?v=3","gravatar_id":"","url":"https://api.github.com/users/ivan-m","html_url":"https://github.com/ivan-m","followers_url":"https://api.github.com/users/ivan-m/followers","following_url":"https://api.github.com/users/ivan-m/following{/other_user}","gists_url":"https://api.github.com/users/ivan-m/gists{/gist_id}","starred_url":"https://api.github.com/users/ivan-m/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ivan-m/subscriptions","organizations_url":"https://api.github.com/users/ivan-m/orgs","repos_url":"https://api.github.com/users/ivan-m/repos","events_url":"https://api.github.com/users/ivan-m/events{/privacy}","received_events_url":"https://api.github.com/users/ivan-m/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-09-24T07:20:02Z","updated_at":"2015-09-24T07:20:02Z","closed_at":null,"body":"shm is reporting a parse error; `shm/test-exe` says:\r\n\r\n```\r\n[[\"Decl SrcSpanInfo\" FunBind 1 1 17 39][\"Match SrcSpanInfo\" Match 1 1 17 39][\"Name SrcSpanInfo\" Ident 1 1 1 7][\"Pat SrcSpanInfo\" PVar 1 8 1 12][\"Name SrcSpanInfo\" Ident 1 8 1 12][\"Pat SrcSpanInfo\" PVar 1 13 1 16][\"Name SrcSpanInfo\" Ident 1 13 1 16][\"Pat SrcSpanInfo\" PVar 1 17 1 19][\"Name SrcSpanInfo\" Ident 1 17 1 19][\"Rhs SrcSpanInfo\" UnGuardedRhs 1 20 5 12][\"Exp SrcSpanInfo\" Do 1 22 5 12][\"Stmt SrcSpanInfo\" Generator 2 3 2 59][\"Pat SrcSpanInfo\" PParen 2 3 2 30][\"Pat SrcSpanInfo\" PatTypeSig 2 4 2 29][\"Pat SrcSpanInfo\" PVar 2 4 2 9][\"Name SrcSpanInfo\" Ident 2 4 2 9][\"Type SrcSpanInfo\" TyList 2 13 2 29][\"Type SrcSpanInfo\" TyTuple 2 14 2 28][\"Type SrcSpanInfo\" TyCon 2 15 2 19][\"QName SrcSpanInfo\" UnQual 2 15 2 19][\"Name SrcSpanInfo\" Ident 2 15 2 19][\"Type SrcSpanInfo\" TyCon 2 20 2 27][\"QName SrcSpanInfo\" UnQual 2 20 2 27][\"Name SrcSpanInfo\" Ident 2 20 2 27][\"Exp SrcSpanInfo\" App 2 34 2 59][\"Exp SrcSpanInfo\" App 2 34 2 56][\"Exp SrcSpanInfo\" App 2 34 2 44][\"Exp SrcSpanInfo\" Var 2 34 2 39][\"QName SrcSpanInfo\" UnQual 2 34 2 39][\"Name SrcSpanInfo\" Ident 2 34 2 39][\"Exp SrcSpanInfo\" Var 2 40 2 44][\"QName SrcSpanInfo\" UnQual 2 40 2 44][\"Name SrcSpanInfo\" Ident 2 40 2 44][\"Exp SrcSpanInfo\" Var 2 45 2 56][\"QName SrcSpanInfo\" UnQual 2 45 2 56][\"Name SrcSpanInfo\" Ident 2 45 2 56][\"Exp SrcSpanInfo\" Var 2 57 2 59][\"QName SrcSpanInfo\" UnQual 2 57 2 59][\"Name SrcSpanInfo\" Ident 2 57 2 59][\"Stmt SrcSpanInfo\" Generator 3 3 4 24][\"Pat SrcSpanInfo\" PVar 3 3 3 4][\"Name SrcSpanInfo\" Ident 3 3 3 4][\"Exp SrcSpanInfo\" Case 3 8 4 24][\"Exp SrcSpanInfo\" Var 3 13 3 22][\"QName SrcSpanInfo\" UnQual 3 13 3 22][\"Name SrcSpanInfo\" Ident 3 13 3 22][\"Alt SrcSpanInfo\" Alt 4 10 4 24][\"Pat SrcSpanInfo\" PWildCard 4 10 4 11][\"Rhs SrcSpanInfo\" UnGuardedRhs 4 12 4 24][\"Exp SrcSpanInfo\" Var 4 15 4 24][\"QName SrcSpanInfo\" UnQual 4 15 4 24][\"Name SrcSpanInfo\" Ident 4 15 4 24][\"Stmt SrcSpanInfo\" Qualifier 5 3 5 12][\"Exp SrcSpanInfo\" App 5 3 5 12][\"Exp SrcSpanInfo\" Var 5 3 5 9][\"QName SrcSpanInfo\" UnQual 5 3 5 9][\"Name SrcSpanInfo\" Ident 5 3 5 9][\"Exp SrcSpanInfstructured-haskell-mode: Parse error: ,\r\n```\r\n\r\nThe only place a `,` appears is within a quasi-quote:\r\n\r\n```\r\n    alreadyHave = [qs|SELECT foo, bar\r\n                        FROM baz\r\n                       WHERE foo in ?\r\n                    ORDER BY bar ASC |]\r\n```\r\n\r\nIndeed, if I remove this quasi-quote then SHM stops complaining about this, and instead starts complaining about my next quasi-quote.\r\n"}}