Renamed ExtensionCore to ExtensionQueries (a module that should only contain queries related to extensions).

This commit is contained in:
Achim D. Brucker 2018-07-24 07:33:12 +01:00
parent 5e35f07568
commit f0b2b92c43
4 changed files with 5 additions and 5 deletions

View File

@ -19,7 +19,7 @@
namespace LogicalHacking.ExtensionDsLab.Archive namespace LogicalHacking.ExtensionDsLab.Archive
module ExtensionCore = module ExtensionQueries =
open DbConnector open DbConnector
let getDownloads (ctx:ExtensionDbType) extid = let getDownloads (ctx:ExtensionDbType) extid =

View File

@ -17,7 +17,7 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Compile Include="DbConnector.fs" /> <Compile Include="DbConnector.fs" />
<Compile Include="ExtensionCore.fs" /> <Compile Include="ExtensionQueries.fs" />
<None Include="Script.fsx" /> <None Include="Script.fsx" />
<None Include="ExtensionsDsLab.fsx" /> <None Include="ExtensionsDsLab.fsx" />
<None Include="paket.references" /> <None Include="paket.references" />

View File

@ -22,7 +22,7 @@
open LogicalHacking.ExtensionDsLab open LogicalHacking.ExtensionDsLab
open LogicalHacking.ExtensionDsLab.Archive.DbConnector open LogicalHacking.ExtensionDsLab.Archive.DbConnector
open LogicalHacking.ExtensionDsLab.Archive.ExtensionCore open LogicalHacking.ExtensionDsLab.Archive.ExtensionQueries
open Deedle open Deedle
open FSharp.Data open FSharp.Data

View File

@ -9,7 +9,7 @@ open System.Configuration
open LogicalHacking.ExtensionDsLab open LogicalHacking.ExtensionDsLab
open LogicalHacking.ExtensionDsLab.Archive.DbConnector open LogicalHacking.ExtensionDsLab.Archive.DbConnector
open LogicalHacking.ExtensionDsLab.Archive.ExtensionCore open LogicalHacking.ExtensionDsLab.Archive.ExtensionQueries
module Tests = module Tests =
@ -51,4 +51,4 @@ module Tests =
let (time, result) = measureExecutionTime (fun () -> (getDownloads ctx "lkllajgbhondgjjnhmmgbjndmogapinp")) let (time, result) = measureExecutionTime (fun () -> (getDownloads ctx "lkllajgbhondgjjnhmmgbjndmogapinp"))
Expect.isLessThan time 1500 "Query should take less than 1500ms" Expect.isLessThan time 1500 "Query should take less than 1500ms"
] ]