Cherry-pick fix for #42

This commit is contained in:
Daniel J. Summers 2020-04-23 10:07:23 -05:00
parent 8770627c29
commit ae149e4624
2 changed files with 10 additions and 8 deletions

View File

@ -126,8 +126,8 @@ module Data =
.ToListAsync() .ToListAsync()
return return
jrnl jrnl
|> Seq.map (fun r -> r.history <- []; r.notes <- []; r)
|> List.ofSeq |> List.ofSeq
|> List.map (fun r -> r.history <- []; r.notes <- []; r)
} }
/// Save changes in the current document session /// Save changes in the current document session
@ -166,7 +166,9 @@ module Data =
.Where(fun x -> x.Id = (RequestId.toString reqId) && x.userId = userId) .Where(fun x -> x.Id = (RequestId.toString reqId) && x.userId = userId)
.ProjectInto<JournalRequest>() .ProjectInto<JournalRequest>()
.FirstOrDefaultAsync () .FirstOrDefaultAsync ()
return Option.fromObject req return
Option.fromObject req
|> Option.map (fun r -> r.history <- []; r.notes <- []; r)
} }
/// Update the recurrence for a request /// Update the recurrence for a request

View File

@ -14,17 +14,17 @@
<ItemGroup> <ItemGroup>
<PackageReference Include="FunctionalCuid" Version="1.0.0" /> <PackageReference Include="FunctionalCuid" Version="1.0.0" />
<PackageReference Include="Giraffe" Version="3.6.0" /> <PackageReference Include="Giraffe" Version="4.1.0" />
<PackageReference Include="Giraffe.TokenRouter" Version="1.0.0" /> <PackageReference Include="Giraffe.TokenRouter" Version="1.0.0" />
<PackageReference Include="Microsoft.AspNetCore.Authentication.JwtBearer" Version="3.0.0" /> <PackageReference Include="Microsoft.AspNetCore.Authentication.JwtBearer" Version="3.1.3" />
<PackageReference Include="Microsoft.FSharpLu" Version="0.10.29" /> <PackageReference Include="Microsoft.FSharpLu" Version="0.11.6" />
<PackageReference Include="Microsoft.FSharpLu.Json" Version="0.10.29" /> <PackageReference Include="Microsoft.FSharpLu.Json" Version="0.11.6" />
<PackageReference Include="RavenDb.Client" Version="4.2.1" /> <PackageReference Include="RavenDb.Client" Version="4.2.102" />
<PackageReference Include="TaskBuilder.fs" Version="2.1.0" /> <PackageReference Include="TaskBuilder.fs" Version="2.1.0" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<PackageReference Update="FSharp.Core" Version="4.7.0" /> <PackageReference Update="FSharp.Core" Version="4.7.1" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>