Return list of distinct ext ids.

src/LogicalHacking.ExtensionDsLab/SqlConnector.fs

@@ -24,11 +24,11 @@ module SqlConnector =
     let [<Literal>] DevelopmentDB = "aa-ac.sqlite"  
     let [<Literal>] FullDB = "full.sqlite" 
     let [<Literal>]  DatabaseDir = "archive/db"
-    let [<Literal>] ArchiveDir = @"Data Source=" 
-                                 + __SOURCE_DIRECTORY__ 
+    let [<Literal>] ArchiveDir =  __SOURCE_DIRECTORY__ 
                                  + @"/../.."
     // static (compile time)  ConnectionString
-    let [<Literal>] ConnectionString = ArchiveDir 
+    let [<Literal>] ConnectionString = @"Data Source=" 
+                                     + ArchiveDir 
                                      + @"/" + DatabaseDir
                                      + @"/" + DevelopmentDB + @";Version=3"
     // create a type alias with the connection string and database vendor settings
@@ -45,8 +45,8 @@ module SqlConnector =
                                        | None   -> ArchiveDir 
                                        | Some s -> s 
                           function
-                          | Dev  -> Sql.GetDataContext(sprintf "Data Source=%s/%s;Version=3" (archiveDir dir ) DevelopmentDB)
-                          | Prod -> Sql.GetDataContext(sprintf "Data Source=%s/%s;Version=3" (archiveDir dir ) DevelopmentDB)
+                          | 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 
                                          getCtx dir Prod
                                      with 

src/scripts/example.fsx

@@ -44,11 +44,11 @@ let getDownloads extid = query {
 let exts = 
     Ctx.Main.Extension
     |> Seq.map(fun c -> c.Extid)
+    |> Seq.distinct
     |> Seq.toList
 
 
 
-
 let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
               "aaahoedfmconkhncmkajlkallgnkjibh"
               "aaahpjmadckbgmdbflcgblcnimbpfefg"
@@ -56,11 +56,10 @@ let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
               "aaaikdbhdiebhdogngakgnmjgpkpcmln"
               ]
 
-open Deedle
-
 #load "../../packages/FsLab/Themes/DefaultWhite.fsx"
 #load "../../packages/FsLab/FsLab.fsx"
 
+open Deedle
 open FSharp.Data
 open XPlot.GoogleCharts
 open XPlot.GoogleCharts.Deedle