adds single data path for db and events

murocast · Feb 29, 2020 · 1627c49 · 1627c49
1 parent 1042670
commit 1627c49
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/src/Server/Database.fs b/src/Server/Database.fs
@@ -61,9 +61,11 @@ module Database =
         | head::tail -> Some head
         | [] -> None
 
-    let createDatabaseConnection() =
+    let createDatabaseConnection folderName =
+        let folder = System.Environment.GetFolderPath(System.Environment.SpecialFolder.ApplicationData)
+        let filePath = System.IO.Path.Combine(folder, folderName, "database.db")
         let mapper = FSharpBsonMapper()
-        let db = new LiteDatabase("murocast.db", mapper) //TODO: DB is IDisposable
+        let db = new LiteDatabase(filePath, mapper) //TODO: DB is IDisposable
 
         { AddAuthRequest = addAuthRequest db
           GetAuthRequestByLinkToken = getAuthRequest db

diff --git a/src/Server/Server.fs b/src/Server/Server.fs
@@ -18,13 +18,15 @@ open CosmoStore
 
 let publicPath = Path.GetFullPath "../Client/public"
 let port = 80us
+[<Literal>]
+let DataFolder = "Castos"
 
 let eventStore = { LiteDb.Configuration.Empty with
                         StoreType = LiteDb.LocalDB
-                        Folder = "Castos" }
+                        Folder = DataFolder }
                   |> LiteDb.EventStore.getEventStore
 
-let db = Database.createDatabaseConnection()
+let db = Database.createDatabaseConnection DataFolder
 
 let webApp = router {