BrowserSecurity
/
ExtensionDsLab
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bug fix: automated selection of data base at runtime.

This commit is contained in:
Achim D. Brucker 2017-08-12 19:45:50 +01:00
parent d546436bb7
commit 8a01f07dea
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/LogicalHacking.ExtensionDsLab/SqlConnector.fs
View File

@ -18,7 +18,7 @@
namespace LogicalHacking.ExtensionDsLab.Archive
open FSharp.Data.Sql
open System.IO
module SqlConnector =
let [<Literal>] DevelopmentDB = "aa-ac.sqlite"
@ -42,11 +42,10 @@ module SqlConnector =
let rec getCtx dir = let archiveDir = function
| None -> __SOURCE_DIRECTORY__ + @"/../.."
| Some s -> s
ignore (printf "Data Source=%s/%s/DB;Version=3" (archiveDir dir) DatabaseDir)
function
| Dev -> Sql.GetDataContext(sprintf "Data Source=%s/%s/%s;Version=3" (archiveDir dir) DatabaseDir DevelopmentDB)
| Prod -> Sql.GetDataContext(sprintf "Data Source=%s/%s/%s;Version=3" (archiveDir dir) DatabaseDir FullDB)
| Auto -> try
| Auto -> if File.Exists(sprintf "%s/%s/%s" (archiveDir dir) DatabaseDir FullDB) then
getCtx dir Prod
with
| _ -> getCtx dir Dev
else
getCtx dir Dev