improved error handling when getting stargazers

Author: joshuanianji

src/Project.elm

@@ -181,7 +181,10 @@ getStargazers repoName env =
         , timeoutInMs = Nothing
         , cachePath = Nothing
         }
-        |> BackendTask.allowFatal
+        |> BackendTask.mapError
+            (\err ->
+                FatalError.fromString <| "Error fetching stargazers for project " ++ repoName ++ "\n" ++ httpErrorToString err.recoverable
+            )
         |> BackendTask.map
             (\stargazers ->
                 if stargazers >= 5 then
@@ -192,6 +195,29 @@ getStargazers repoName env =
             )
 
 
+httpErrorToString : BackendTask.Http.Error -> String
+httpErrorToString error =
+    let
+        body =
+            case error of
+                BackendTask.Http.BadUrl string ->
+                    "BadUrl " ++ string
+
+                BackendTask.Http.Timeout ->
+                    "Timeout"
+
+                BackendTask.Http.NetworkError ->
+                    "NetworkError"
+
+                BackendTask.Http.BadStatus metadata _ ->
+                    "BadStatus: " ++ String.fromInt metadata.statusCode ++ " " ++ metadata.statusText
+
+                BackendTask.Http.BadBody _ string ->
+                    "BadBody " ++ string
+    in
+    "HTTP Error: " ++ body
+
+
 
 -- if the project doesn't have a "year" field, scrape the github API
 -- to get the date of the first commit and latest commit, and use that to create a range