{"action":"closed","issue":{"url":"https://api.github.com/repos/ekmett/lens/issues/793","repository_url":"https://api.github.com/repos/ekmett/lens","labels_url":"https://api.github.com/repos/ekmett/lens/issues/793/labels{/name}","comments_url":"https://api.github.com/repos/ekmett/lens/issues/793/comments","events_url":"https://api.github.com/repos/ekmett/lens/issues/793/events","html_url":"https://github.com/ekmett/lens/issues/793","id":300776256,"number":793,"title":"Add 'WrappedM' type class similar to 'Wrapped'","user":{"login":"ChShersh","id":4276606,"avatar_url":"https://avatars0.githubusercontent.com/u/4276606?v=4","gravatar_id":"","url":"https://api.github.com/users/ChShersh","html_url":"https://github.com/ChShersh","followers_url":"https://api.github.com/users/ChShersh/followers","following_url":"https://api.github.com/users/ChShersh/following{/other_user}","gists_url":"https://api.github.com/users/ChShersh/gists{/gist_id}","starred_url":"https://api.github.com/users/ChShersh/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ChShersh/subscriptions","organizations_url":"https://api.github.com/users/ChShersh/orgs","repos_url":"https://api.github.com/users/ChShersh/repos","events_url":"https://api.github.com/users/ChShersh/events{/privacy}","received_events_url":"https://api.github.com/users/ChShersh/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":17,"created_at":"2018-02-27T20:12:42Z","updated_at":"2018-03-01T16:02:51Z","closed_at":"2018-03-01T16:02:51Z","author_association":"NONE","body":"Here is the sample definition:\r\n\r\n```haskell\r\n-- | Similar to `Wrapped`, but for `Monad`s.\r\nclass Monad m => WrappedM m where\r\n    type UnwrappedM m :: * -> *\r\n\r\n    _WrappedM :: Iso' (m a) (UnwrappedM m a)\r\n    _WrappedM = iso packM unpackM\r\n\r\n    packM :: m a -> UnwrappedM m a\r\n    packM = view _WrappedM\r\n\r\n    unpackM :: UnwrappedM m a -> m a\r\n    unpackM = view _UnwrappedM\r\n\r\n_UnwrappedM :: WrappedM m => Iso' (UnwrappedM m a) (m a)\r\n_UnwrappedM = from _WrappedM\r\n```"}}
{"actor":{"display_login":"RyanGlScott"}}