remove ';' from queries

src/user.ml

@@ -16,98 +16,98 @@ module Q = struct
   let create_user_table =
     (Caqti_type.unit ->. Caqti_type.unit)
       "CREATE TABLE IF NOT EXISTS user (user_id TEXT, nick TEXT, password \
-       TEXT, email TEXT, bio TEXT, PRIMARY KEY(user_id));"
+       TEXT, email TEXT, bio TEXT, PRIMARY KEY(user_id))"
 
   let create_banished_table =
     (Caqti_type.unit ->. Caqti_type.unit)
-      "CREATE TABLE IF NOT EXISTS banished (nick TEXT, email TEXT);"
+      "CREATE TABLE IF NOT EXISTS banished (nick TEXT, email TEXT)"
 
   let create_metadata_table =
     (Caqti_type.unit ->. Caqti_type.unit)
       "CREATE TABLE IF NOT EXISTS user_metadata (user_id TEXT, metadata TEXT, \
-       FOREIGN KEY(user_id) REFERENCES user(user_id) ON DELETE CASCADE);"
+       FOREIGN KEY(user_id) REFERENCES user(user_id) ON DELETE CASCADE)"
 
   let get_metadata =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT metadata FROM user_metadata WHERE user_id=?;"
+      "SELECT metadata FROM user_metadata WHERE user_id=?"
 
   let upload_metadata =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "INSERT INTO user_metadata VALUES (?, ?);"
+      "INSERT INTO user_metadata VALUES (?, ?)"
 
   let delete_metadata =
     (Caqti_type.string ->. Caqti_type.unit)
-      "DELETE FROM user_metadata WHERE user_id=?;"
+      "DELETE FROM user_metadata WHERE user_id=?"
 
   let get_user_id_from_nick =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT user_id FROM user WHERE nick=?;"
+      "SELECT user_id FROM user WHERE nick=?"
 
   let get_user_id_from_email =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT user_id FROM user WHERE email=?;"
+      "SELECT user_id FROM user WHERE email=?"
 
   let get_password =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT password FROM user WHERE user_id=?;"
+      "SELECT password FROM user WHERE user_id=?"
 
   let is_already_user =
     (Caqti_type.(tup2 string string) ->! Caqti_type.int)
-      "SELECT EXISTS(SELECT 1 FROM user WHERE nick=? OR email=?);"
+      "SELECT EXISTS(SELECT 1 FROM user WHERE nick=? OR email=?)"
 
   let upload_user =
     ( Caqti_type.(tup4 string string string Caqti_type.(tup2 string string))
     ->. Caqti_type.unit )
-      "INSERT INTO user VALUES (?, ?, ?, ?, ?);"
+      "INSERT INTO user VALUES (?, ?, ?, ?, ?)"
 
   let list_nicks =
-    (Caqti_type.unit ->* Caqti_type.string) "SELECT nick FROM user;"
+    (Caqti_type.unit ->* Caqti_type.string) "SELECT nick FROM user"
 
   let get_user =
     (* there is no "tup6" *)
     ( Caqti_type.string
     ->! Caqti_type.(tup4 string string string Caqti_type.(tup2 string string))
     )
-      "SELECT * FROM user WHERE user_id=?;"
+      "SELECT * FROM user WHERE user_id=?"
 
   let update_bio =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "UPDATE user SET bio=? WHERE user_id=?;"
+      "UPDATE user SET bio=? WHERE user_id=?"
 
   let update_nick =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "UPDATE user SET nick=? WHERE user_id=?;"
+      "UPDATE user SET nick=? WHERE user_id=?"
 
   let update_email =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "UPDATE user SET email=? WHERE user_id=?;"
+      "UPDATE user SET email=? WHERE user_id=?"
 
   let update_password =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "UPDATE user SET password=? WHERE user_id=?;"
+      "UPDATE user SET password=? WHERE user_id=?"
 
   let get_nick =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT nick FROM user WHERE user_id=?;"
+      "SELECT nick FROM user WHERE user_id=?"
 
   let get_bio =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT bio FROM user WHERE user_id=?;"
+      "SELECT bio FROM user WHERE user_id=?"
 
   let get_email =
     (Caqti_type.string ->! Caqti_type.string)
-      "SELECT email FROM user WHERE user_id=?;"
+      "SELECT email FROM user WHERE user_id=?"
 
   let delete_user =
-    (Caqti_type.string ->. Caqti_type.unit) "DELETE FROM user WHERE user_id=?;"
+    (Caqti_type.string ->. Caqti_type.unit) "DELETE FROM user WHERE user_id=?"
 
   let upload_banished =
     (Caqti_type.(tup2 string string) ->. Caqti_type.unit)
-      "INSERT INTO banished VALUES (?,?);"
+      "INSERT INTO banished VALUES (?,?)"
 
   let get_banished =
     (Caqti_type.(tup2 string string) ->! Caqti_type.(tup2 string string))
-      "SELECT * FROM banished WHERE nick=? OR email=?;"
+      "SELECT * FROM banished WHERE nick=? OR email=?"
 end
 
 let () =