mergeRequests :: AccountConfig -> IO ()
mergeRequests cfg = do
  prResponseBody <- apiCall mcfg
  let body = justBody $ parseMergeRequest prResponseBody
  mapM_ (modifyAndShow cfg) body
  where
    mcfg = AccountConfig (key (cfg :: AccountConfig))
           (url cfg ++ "/merge_requests?state=opened")
mergeRequests :: AccountConfig -> IO ()
mergeRequests cfg = do
  prResponseBody <- apiCall mcfg
  let body = justBody $ parseMergeRequest prResponseBody
  mapM_ (modifyAndShow cfg) body
  where
    mcfg = AccountConfig (key (cfg :: AccountConfig))
           (url cfg ++ "/merge_requests?state=opened")
mergeRequests cfg = do
  prResponseBody <- apiCall mcfg
  let body = justBody $ parseMergeRequest prResponseBody
  mapM_ (modifyAndShow cfg) body
  where
    mcfg = AccountConfig (key (cfg :: AccountConfig))
           (url cfg ++ "/merge_requests?state=opened")