Print debugging info to stderr so we don't clobber html output

src/Main.hs

@@ -38,7 +38,7 @@ getFullPr
   -> GitHub.SimplePullRequest
   -> IO GitHub.PullRequest
 getFullPr auth mgr owner repo simplePr = do
-  putStrLn $ "getting PR info for #" ++ show (GitHub.simplePullRequestNumber simplePr)
+  -- hPutStrLn stderr $ "getting PR info for #" ++ show (GitHub.simplePullRequestNumber simplePr)
   request auth mgr
     . GitHub.pullRequestR owner repo
     . GitHub.Id
@@ -72,10 +72,10 @@ getPrsForRepo
   -> IO [PullRequestInfo]
 getPrsForRepo auth mgr ownerName repoName = do
   -- Get PR list.
-  putStrLn $ "getting PR list for " ++
-    Text.unpack (GitHub.untagName ownerName) ++
-    "/" ++
-    Text.unpack (GitHub.untagName repoName)
+  -- hPutStrLn stderr $ "getting PR list for " ++
+    -- Text.unpack (GitHub.untagName ownerName) ++
+    -- "/" ++
+    -- Text.unpack (GitHub.untagName repoName)
   simplePRs <- V.toList <$> request auth mgr (GitHub.pullRequestsForR ownerName repoName GitHub.stateOpen GitHub.FetchAll)
 
   prInfos <- Parallel.mapM (getPrInfo auth mgr ownerName repoName) simplePRs
@@ -99,7 +99,7 @@ main = do
   mgr <- newManager tlsManagerSettings
 
   -- Get repo list.
-  putStrLn $ "getting repo list for " ++ Text.unpack (GitHub.untagName ownerName)
+  -- hPutStrLn stderr $ "getting repo list for " ++ Text.unpack (GitHub.untagName ownerName)
   repos <- V.toList <$> request auth mgr (GitHub.organizationReposR orgName GitHub.RepoPublicityAll GitHub.FetchAll)
   let repoNames = map GitHub.repoName repos
 

src/Review.hs

@@ -32,7 +32,7 @@ instance Show Status where
 fetchHtml :: Manager -> GitHub.SimplePullRequest -> IO Text
 fetchHtml mgr pr = do
   let url = Text.unpack $ GitHub.getUrl $ GitHub.simplePullRequestHtmlUrl pr
-  putStrLn $ "fetching " ++ url
+  -- hPutStrLn stderr $ "fetching " ++ url
   req <- parseRequest url
   decodeUtf8 . LBS.toStrict . responseBody <$> httpLbs req mgr