{"action":"created","issue":{"url":"https://api.github.com/repos/chrisdone/lucid/issues/36","labels_url":"https://api.github.com/repos/chrisdone/lucid/issues/36/labels{/name}","comments_url":"https://api.github.com/repos/chrisdone/lucid/issues/36/comments","events_url":"https://api.github.com/repos/chrisdone/lucid/issues/36/events","html_url":"https://github.com/chrisdone/lucid/issues/36","id":116147875,"number":36,"title":"Expose data constructor for HtmlT","user":{"login":"andrewthad","id":5332484,"avatar_url":"https://avatars.githubusercontent.com/u/5332484?v=3","gravatar_id":"","url":"https://api.github.com/users/andrewthad","html_url":"https://github.com/andrewthad","followers_url":"https://api.github.com/users/andrewthad/followers","following_url":"https://api.github.com/users/andrewthad/following{/other_user}","gists_url":"https://api.github.com/users/andrewthad/gists{/gist_id}","starred_url":"https://api.github.com/users/andrewthad/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/andrewthad/subscriptions","organizations_url":"https://api.github.com/users/andrewthad/orgs","repos_url":"https://api.github.com/users/andrewthad/repos","events_url":"https://api.github.com/users/andrewthad/events{/privacy}","received_events_url":"https://api.github.com/users/andrewthad/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":6,"created_at":"2015-11-10T16:44:38Z","updated_at":"2015-11-10T17:21:27Z","closed_at":null,"body":"I'm working with a monad transformer stack involving `HtmlT` that looks like this:\r\n\r\n    type M = HtmlT (StateT Int Identity)\r\n\r\nAnd there's a place in my code where I'd like to be able to write a function:\r\n\r\n    seed :: Int -> M a -> Svg a\r\n\r\nAnd I can't write this if I don't have access to the data constructor. One obvious solution would be to flip the ordering of the stack like so:\r\n\r\n    type M = StateT Int (HtmlT Identity)\r\n\r\nBut lucid doesn't have an mtl-style interface so I would need to call `lift` almost everywhere since `HtmlT` is the monad transformer I use way more often. (Note: I'm totally fine with the lack of an mtl-style typeclass. I don't even like using mtl to begin with.)"},"comment":{"url":"https://api.github.com/repos/chrisdone/lucid/issues/comments/155496274","html_url":"https://github.com/chrisdone/lucid/issues/36#issuecomment-155496274","issue_url":"https://api.github.com/repos/chrisdone/lucid/issues/36","id":155496274,"user":{"login":"andrewthad","id":5332484,"avatar_url":"https://avatars.githubusercontent.com/u/5332484?v=3","gravatar_id":"","url":"https://api.github.com/users/andrewthad","html_url":"https://github.com/andrewthad","followers_url":"https://api.github.com/users/andrewthad/followers","following_url":"https://api.github.com/users/andrewthad/following{/other_user}","gists_url":"https://api.github.com/users/andrewthad/gists{/gist_id}","starred_url":"https://api.github.com/users/andrewthad/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/andrewthad/subscriptions","organizations_url":"https://api.github.com/users/andrewthad/orgs","repos_url":"https://api.github.com/users/andrewthad/repos","events_url":"https://api.github.com/users/andrewthad/events{/privacy}","received_events_url":"https://api.github.com/users/andrewthad/received_events","type":"User","site_admin":false},"created_at":"2015-11-10T17:21:27Z","updated_at":"2015-11-10T17:21:27Z","body":"Cool. Thanks so much!"}}