From c6760da25049260647ba4caf2bed30020c1ae43f Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Sun, 7 Nov 2021 01:42:43 +0100
Subject: [PATCH] fmt

---
 src/user.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/user.ml b/src/user.ml
index 263e549..9fe9699 100644
--- a/src/user.ml
+++ b/src/user.ml
@@ -91,12 +91,12 @@ let profile request =
   let open Sqlite3_utils in
   let user =
     Db.with_db (fun db ->
-      exec_raw_args db "SELECT * FROM user WHERE nick=?;" [| Data.TEXT nick |]
-      ~f:Cursor.to_list
-    )
+        exec_raw_args db "SELECT * FROM user WHERE nick=?;" [| Data.TEXT nick |]
+          ~f:Cursor.to_list )
   in
   match user with
-  | Ok [[| Data.TEXT nick; Data.TEXT password; Data.TEXT email |]] ->
-    Format.sprintf "nick = `%s`; password = `%s`; email = `%s`" nick password email
+  | Ok [ [| Data.TEXT nick; Data.TEXT password; Data.TEXT email |] ] ->
+    Format.sprintf "nick = `%s`; password = `%s`; email = `%s`" nick password
+      email
   | Ok _ -> "incoherent db answer"
   | Error e -> Format.sprintf "db error: %s" (Rc.to_string e)