fix: staff user field decoding (thx @vjousse)

MTES-MCT · Jan 8, 2025 · 49ba6f7 · 49ba6f7
1 parent e0f5487
commit 49ba6f7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Data/User.elm b/src/Data/User.elm
@@ -34,7 +34,7 @@ decode =
         |> Pipe.required "email" Decode.string
         |> Pipe.required "first_name" Decode.string
         |> Pipe.required "last_name" Decode.string
-        |> Pipe.required "staff" Decode.bool
+        |> Pipe.optional "staff" Decode.bool False
         |> Pipe.required "token" Decode.string
 
 
@@ -46,6 +46,7 @@ encode user =
         , ( "last_name", Encode.string user.lastname )
         , ( "organization", Encode.string user.company )
         , ( "terms_of_use", Encode.bool user.cgu )
+        , ( "staff", Encode.bool user.staff )
         , ( "token", Encode.string user.token )
         ]