objective categorical abstract machine language personal data server
Fix cancelSetup function indentation
+19
-17
+19
-17
frontend/src/templates/AccountSecurityPage.mlx
+19
-17
frontend/src/templates/AccountSecurityPage.mlx
···
827
827
()
828
828
in
829
829
let cancelSetup () =
830
-
match securityKeyId with
831
-
| Some id ->
832
-
let _ =
833
-
Fetch.fetchWithInit
834
-
("/account/security/keys/" ^ string_of_int id)
835
-
(Fetch.RequestInit.make ~method_:Delete ())
836
-
in
837
-
()
838
-
| None ->
839
-
() ;
840
-
setSettingUpSecurityKey (fun _ -> false) ;
841
-
setSecurityKeyName (fun _ -> "") ;
842
-
setSecurityKeyCode (fun _ -> "") ;
843
-
setSecurityKeyUri (fun _ -> "") ;
844
-
setSecurityKeySecret (fun _ -> "") ;
845
-
setSecurityKeyId (fun _ -> None) ;
846
-
setSecurityKeyError (fun _ -> None)
830
+
let () =
831
+
match securityKeyId with
832
+
| Some id ->
833
+
let _ =
834
+
Fetch.fetchWithInit
835
+
("/account/security/keys/" ^ string_of_int id)
836
+
(Fetch.RequestInit.make ~method_:Delete ())
837
+
in
838
+
()
839
+
| None ->
840
+
()
841
+
in
842
+
setSettingUpSecurityKey (fun _ -> false) ;
843
+
setSecurityKeyName (fun _ -> "") ;
844
+
setSecurityKeyCode (fun _ -> "") ;
845
+
setSecurityKeyUri (fun _ -> "") ;
846
+
setSecurityKeySecret (fun _ -> "") ;
847
+
setSecurityKeyId (fun _ -> None) ;
848
+
setSecurityKeyError (fun _ -> None)
847
849
in
848
850
let deleteKey id =
849
851
let _ =