WIP on uploads (#2)

- Add data types and fields
- Implement in both RethinkDB and SQLite
- Add uploads to backup/restore
- Add empty upload folder to project
- Add indexes to SQLite tables (#15)

src/MyWebLog.Data/SQLite/SQLiteCategoryData.fs

@@ -21,12 +21,12 @@ type SQLiteCategoryData (conn : SqliteConnection) =
     /// Add a category
     let add cat = backgroundTask {
         use cmd = conn.CreateCommand ()
-        cmd.CommandText <-
-            """INSERT INTO category (
-                   id, web_log_id, name, slug, description, parent_id
-               ) VALUES (
-                   @id, @webLogId, @name, @slug, @description, @parentId
-               )"""
+        cmd.CommandText <- """
+            INSERT INTO category (
+                id, web_log_id, name, slug, description, parent_id
+            ) VALUES (
+                @id, @webLogId, @name, @slug, @description, @parentId
+            )"""
         addCategoryParameters cmd cat
         let! _ = cmd.ExecuteNonQueryAsync ()
         ()
@@ -70,13 +70,13 @@ type SQLiteCategoryData (conn : SqliteConnection) =
                 // Parent category post counts include posts in subcategories
                 cmd.Parameters.Clear ()
                 addWebLogId cmd webLogId
-                cmd.CommandText <-
-                    """SELECT COUNT(DISTINCT p.id)
-                         FROM post p
-                              INNER JOIN post_category pc ON pc.post_id = p.id
-                        WHERE p.web_log_id = @webLogId
-                          AND p.status     = 'Published'
-                          AND pc.category_id IN ("""
+                cmd.CommandText <- """
+                    SELECT COUNT(DISTINCT p.id)
+                      FROM post p
+                           INNER JOIN post_category pc ON pc.post_id = p.id
+                     WHERE p.web_log_id = @webLogId
+                       AND p.status     = 'Published'
+                       AND pc.category_id IN ("""
                 ordered
                 |> Seq.filter (fun cat -> cat.parentNames |> Array.contains it.name)
                 |> Seq.map (fun cat -> cat.id)
@@ -125,10 +125,10 @@ type SQLiteCategoryData (conn : SqliteConnection) =
         | Some _ ->
             use cmd = conn.CreateCommand ()
             // Delete the category off all posts where it is assigned
-            cmd.CommandText <-
-                """DELETE FROM post_category
-                    WHERE category_id = @id
-                      AND post_id IN (SELECT id FROM post WHERE web_log_id = @webLogId)"""
+            cmd.CommandText <- """
+                DELETE FROM post_category
+                 WHERE category_id = @id
+                   AND post_id IN (SELECT id FROM post WHERE web_log_id = @webLogId)"""
             let catIdParameter = cmd.Parameters.AddWithValue ("@id", CategoryId.toString catId)
             cmd.Parameters.AddWithValue ("@webLogId", WebLogId.toString webLogId) |> ignore
             do! write cmd
@@ -150,14 +150,14 @@ type SQLiteCategoryData (conn : SqliteConnection) =
     /// Update a category
     let update cat = backgroundTask {
         use cmd = conn.CreateCommand ()
-        cmd.CommandText <-
-            """UPDATE category
-                  SET name        = @name,
-                      slug        = @slug,
-                      description = @description,
-                      parent_id   = @parentId
-                WHERE id         = @id
-                  AND web_log_id = @webLogId"""
+        cmd.CommandText <- """
+            UPDATE category
+               SET name        = @name,
+                   slug        = @slug,
+                   description = @description,
+                   parent_id   = @parentId
+             WHERE id         = @id
+               AND web_log_id = @webLogId"""
         addCategoryParameters cmd cat
         do! write cmd
     }