Fixed errors after FakeScaffold migration.

This commit is contained in:
Achim D. Brucker 2017-08-06 20:55:24 +01:00
parent f89c2f9192
commit ce1dd4a90a
1 changed files with 20 additions and 17 deletions

View File

@ -1,6 +1,6 @@
(*
* This file is part of the scholar-kpi project.
* Copyright (c) 2017 Logicalhacking.com
* Copyright (c) 2017 LogicalHacking.com
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -14,7 +14,7 @@
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <https://www.gnu.org/licenses/>.
*)
#r @"Mono.Data.Sqlite.dll"
#I @"../../packages/SQLProvider/lib/"
#r @"FSharp.Data.SqlProvider.dll"
@ -26,10 +26,10 @@ let (+/) path1 path2 = Path.Combine(path1, path2)
let [<Literal>] DevelopmentDB = "aa-ac.sqlite"
let [<Literal>] FullDB = "full.sqlite"
let [<Literal>] DatabaseDir = "archive/db"
// static (compile time) ResolutionPath and ConnectionString
let [<Literal>] ResolutionPath = __SOURCE_DIRECTORY__ + @"/lib"
// static (compile time) ConnectionString
let [<Literal>] ConnectionString = @"Data Source="
+ __SOURCE_DIRECTORY__
+ @"/../.."
+ @"/" + DatabaseDir
+ @"/" + DevelopmentDB + @";Version=3"
// create a type alias with the connection string and database vendor settings
@ -57,30 +57,33 @@ let exts =
|> Seq.toList
#load "packages/FsLab/Themes/DefaultWhite.fsx"
#load "packages/FsLab/FsLab.fsx"
#load "../../packages/FsLab/Themes/DefaultWhite.fsx"
#load "../../packages/FsLab/FsLab.fsx"
open Deedle
open FSharp.Data
open XPlot.GoogleCharts
open XPlot.GoogleCharts.Deedle
let ExtIds = ["aaagbdompnfgjaokopkpaceijcapjdde"
"aaahoedfmconkhncmkajlkallgnkjibh"
"aaahpjmadckbgmdbflcgblcnimbpfefg"
"aaaidlpoefeeklbhpndokmfipimojimj"
"aaaikdbhdiebhdogngakgnmjgpkpcmln"
]
]
(List.map (fun e -> (series (getDownloads e))) ExtIds)
|> Chart.Line
|> Chart.WithOptions (Options(legend=Legend(position="bottom")))
|> Chart.WithLabels ExtIds
open Deedle
open FSharp.Data
open XPlot.GoogleCharts
open XPlot.GoogleCharts.Deedle
let x = (List.map (fun e -> (series (getDownloads e))) ExtIds)
|> Chart.Line
|> Chart.WithOptions (Options(legend=Legend(position="bottom")))
|> Chart.WithLabels ExtIds
let permissionFrame = Ctx.Main.Crx |> Frame.ofRecords
(*
let permissionFrame = Ctx.Main.Crx |> Frame.ofRecords
permissionFrame.Print true |> ignore
permissionFrame.Print true |> ignore
*)
let extData =
query {for x in Ctx.Main.Extension do