{"action":"created","issue":{"url":"https://api.github.com/repos/aelve/haskell-issues/issues/15","repository_url":"https://api.github.com/repos/aelve/haskell-issues","labels_url":"https://api.github.com/repos/aelve/haskell-issues/issues/15/labels{/name}","comments_url":"https://api.github.com/repos/aelve/haskell-issues/issues/15/comments","events_url":"https://api.github.com/repos/aelve/haskell-issues/issues/15/events","html_url":"https://github.com/aelve/haskell-issues/issues/15","id":142201218,"number":15,"title":"base: finally add whenM/unlessM/ifM","user":{"login":"neongreen","id":1523306,"avatar_url":"https://avatars.githubusercontent.com/u/1523306?v=3","gravatar_id":"","url":"https://api.github.com/users/neongreen","html_url":"https://github.com/neongreen","followers_url":"https://api.github.com/users/neongreen/followers","following_url":"https://api.github.com/users/neongreen/following{/other_user}","gists_url":"https://api.github.com/users/neongreen/gists{/gist_id}","starred_url":"https://api.github.com/users/neongreen/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/neongreen/subscriptions","organizations_url":"https://api.github.com/users/neongreen/orgs","repos_url":"https://api.github.com/users/neongreen/repos","events_url":"https://api.github.com/users/neongreen/events{/privacy}","received_events_url":"https://api.github.com/users/neongreen/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":3,"created_at":"2016-03-20T20:26:23Z","updated_at":"2016-03-20T23:51:12Z","closed_at":null,"body":"The previous discussion (I think it was [this one](https://mail.haskell.org/pipermail/libraries/2014-April/022695.html)) ended in nothing, even tho most people seemed to be in favor of adding them."},"comment":{"url":"https://api.github.com/repos/aelve/haskell-issues/issues/comments/199061493","html_url":"https://github.com/aelve/haskell-issues/issues/15#issuecomment-199061493","issue_url":"https://api.github.com/repos/aelve/haskell-issues/issues/15","id":199061493,"user":{"login":"Gurkenglas","id":1489801,"avatar_url":"https://avatars.githubusercontent.com/u/1489801?v=3","gravatar_id":"","url":"https://api.github.com/users/Gurkenglas","html_url":"https://github.com/Gurkenglas","followers_url":"https://api.github.com/users/Gurkenglas/followers","following_url":"https://api.github.com/users/Gurkenglas/following{/other_user}","gists_url":"https://api.github.com/users/Gurkenglas/gists{/gist_id}","starred_url":"https://api.github.com/users/Gurkenglas/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/Gurkenglas/subscriptions","organizations_url":"https://api.github.com/users/Gurkenglas/orgs","repos_url":"https://api.github.com/users/Gurkenglas/repos","events_url":"https://api.github.com/users/Gurkenglas/events{/privacy}","received_events_url":"https://api.github.com/users/Gurkenglas/received_events","type":"User","site_admin":false},"created_at":"2016-03-20T23:51:11Z","updated_at":"2016-03-20T23:51:11Z","body":"getDirectoryMay :: FilePath -> IO (Maybe Directory)\r\n\r\nhttp://lpaste.net/150858\r\n\r\ndirectory = runIdentityT $ (MaybeT (getDirectoryMay path) <|!>) $ IdentityT $ do\r\n         putStrLn $ \"Creating directory \" ++ path\r\n         createDirectory path\r\n\r\nPerhaps I should relate MaybeT m to m instead of IdentityT m? That feels hacky, though."}}