start and coolectivesettings

modules/webapp/src/main/elm/Messages/Comp/HttpError.elm

@@ -8,6 +8,7 @@
 module Messages.Comp.HttpError exposing
     ( de
     , gb
+    , fr
     )
 
 import Http
@@ -51,6 +52,24 @@ de err =
     errorToString texts err
 
 
+fr : Http.Error -> String
+fr err =
+    let
+        texts =
+            { badUrl = \url -> "Erreur avec l'url: " ++ url
+            , timeout = "Délais d'attente réseau (timeout) expiré."
+            , networkError = "Erreur de réseau"
+            , invalidResponseStatus =
+                \status ->
+                    "Status de réponse invalide: " ++ String.fromInt status ++ "."
+            , invalidInput = "Entrée invalide pour traiter la requête"
+            , notFound = "La ressource demandée n'existe pas."
+            , invalidBody = \str -> "Erreur en décodant la réponse: " ++ str
+            , accessDenied = "Accès refusé"
+            }
+    in
+    errorToString texts err
+
 
 -- Error Utilities