Skip to content

Commit 4696a87

Browse files
author
Mikhail Shilkov
committed
Using F# from C# Functions project
1 parent 21b9284 commit 4696a87

File tree

8 files changed

+132
-0
lines changed

8 files changed

+132
-0
lines changed

‎12-durable/HttpSyncStart.fs

+35
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,35 @@
1+
namespace DurableFsharp
2+
3+
open System
4+
open System.Net.Http
5+
//open System.Net.Http.Headers
6+
open Microsoft.Azure.WebJobs
7+
open Microsoft.Azure.WebJobs.Extensions.Http
8+
open Microsoft.Azure.WebJobs.Host
9+
open FSharp.Control.Tasks
10+
11+
module HttpSyncStart =
12+
13+
// let Timeout = "timeout"
14+
// let RetryInterval = "retryInterval"
15+
16+
// let GetTimeSpan(request: HttpRequestMessage, queryParameterName: string): Nullable<TimeSpan> =
17+
// let queryParameterStringValue = request.GetQueryNameValuePairs()
18+
// // .FirstOrDefault(x => x.Key == queryParameterName)
19+
// // .Value;
20+
// if String.IsNullOrEmpty(queryParameterStringValue) then Nullable()
21+
// else Nullable()
22+
23+
[<FunctionName("HttpSyncStart")>]
24+
let Run([<HttpTrigger(AuthorizationLevel.Function, "post", Route = "orchestrators/{functionName}/wait")>] req: HttpRequestMessage,
25+
[<OrchestrationClient>] starter: DurableOrchestrationClient,
26+
functionName: string,
27+
log: TraceWriter) =
28+
task {
29+
let! eventData = req.Content.ReadAsAsync<Object>()
30+
let! instanceId = starter.StartNewAsync(functionName, eventData)
31+
32+
log.Info(sprintf "Started orchestration with ID = '{%s}'." instanceId)
33+
34+
return! starter.WaitForCompletionOrCreateCheckStatusResponseAsync(req, instanceId, Nullable(), Nullable())
35+
}

‎13-fsharp-from-csharp/CSharpFunctionApp/CSharpFunctionApp.csproj

+21
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,21 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
<PropertyGroup>
3+
<TargetFramework>netstandard2.0</TargetFramework>
4+
<AzureFunctionsVersion>v2</AzureFunctionsVersion>
5+
</PropertyGroup>
6+
<ItemGroup>
7+
<PackageReference Include="Microsoft.NET.Sdk.Functions" Version="1.0.13" />
8+
</ItemGroup>
9+
<ItemGroup>
10+
<ProjectReference Include="..\FSharpLibrary\FSharpLibrary.fsproj" />
11+
</ItemGroup>
12+
<ItemGroup>
13+
<None Update="host.json">
14+
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
15+
</None>
16+
<None Update="local.settings.json">
17+
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
18+
<CopyToPublishDirectory>Never</CopyToPublishDirectory>
19+
</None>
20+
</ItemGroup>
21+
</Project>

‎13-fsharp-from-csharp/CSharpFunctionApp/CSharpFunctions.cs

+21
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,21 @@
1+
using Microsoft.AspNetCore.Mvc;
2+
using Microsoft.Azure.WebJobs;
3+
using Microsoft.Azure.WebJobs.Extensions.Http;
4+
using Microsoft.AspNetCore.Http;
5+
using Microsoft.Azure.WebJobs.Host;
6+
7+
namespace CSharpFunctionApp
8+
{
9+
public static class CSharpFunctions
10+
{
11+
[FunctionName("CSharpLovesFSharp")]
12+
public static IActionResult Run([HttpTrigger(AuthorizationLevel.Function, "get")]HttpRequest req, TraceWriter log)
13+
{
14+
var greeting = FSharpLibrary.Say.loves("C#", "F#");
15+
16+
log.Info(greeting);
17+
18+
return new OkObjectResult(greeting);
19+
}
20+
}
21+
}

‎13-fsharp-from-csharp/CSharpFunctionApp/host.json

+2
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
{
2+
}

‎13-fsharp-from-csharp/CSharpFunctionApp/local.settings.json

+6
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
{
2+
"IsEncrypted": false,
3+
"Values": {
4+
"AzureWebJobsStorage": "UseDevelopmentStorage=true"
5+
}
6+
}

‎13-fsharp-from-csharp/FSharpLibrary/FSharpLibrary.fsproj

+11
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
3+
<PropertyGroup>
4+
<TargetFramework>netstandard2.0</TargetFramework>
5+
</PropertyGroup>
6+
7+
<ItemGroup>
8+
<Compile Include="Library.fs" />
9+
</ItemGroup>
10+
11+
</Project>

‎13-fsharp-from-csharp/FSharpLibrary/Library.fs

+5
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
namespace FSharpLibrary
2+
3+
module Say =
4+
let loves who whom =
5+
sprintf "%s loves %s" who whom

‎13-fsharp-from-csharp/FsharpFromCsharpFunction.sln

+31
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
2+
Microsoft Visual Studio Solution File, Format Version 12.00
3+
# Visual Studio 15
4+
VisualStudioVersion = 15.0.27703.2018
5+
MinimumVisualStudioVersion = 10.0.40219.1
6+
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "CSharpFunctionApp", "CSharpFunctionApp\CSharpFunctionApp.csproj", "{5CFED223-075F-4EC6-947A-AB1A79250333}"
7+
EndProject
8+
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FSharpLibrary", "FSharpLibrary\FSharpLibrary.fsproj", "{3487EBB0-20AF-4E1D-AD81-7474304B9572}"
9+
EndProject
10+
Global
11+
GlobalSection(SolutionConfigurationPlatforms) = preSolution
12+
Debug|Any CPU = Debug|Any CPU
13+
Release|Any CPU = Release|Any CPU
14+
EndGlobalSection
15+
GlobalSection(ProjectConfigurationPlatforms) = postSolution
16+
{5CFED223-075F-4EC6-947A-AB1A79250333}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
17+
{5CFED223-075F-4EC6-947A-AB1A79250333}.Debug|Any CPU.Build.0 = Debug|Any CPU
18+
{5CFED223-075F-4EC6-947A-AB1A79250333}.Release|Any CPU.ActiveCfg = Release|Any CPU
19+
{5CFED223-075F-4EC6-947A-AB1A79250333}.Release|Any CPU.Build.0 = Release|Any CPU
20+
{3487EBB0-20AF-4E1D-AD81-7474304B9572}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
21+
{3487EBB0-20AF-4E1D-AD81-7474304B9572}.Debug|Any CPU.Build.0 = Debug|Any CPU
22+
{3487EBB0-20AF-4E1D-AD81-7474304B9572}.Release|Any CPU.ActiveCfg = Release|Any CPU
23+
{3487EBB0-20AF-4E1D-AD81-7474304B9572}.Release|Any CPU.Build.0 = Release|Any CPU
24+
EndGlobalSection
25+
GlobalSection(SolutionProperties) = preSolution
26+
HideSolutionNode = FALSE
27+
EndGlobalSection
28+
GlobalSection(ExtensibilityGlobals) = postSolution
29+
SolutionGuid = {542087B7-F632-48A9-86B1-99D5DA1BB16A}
30+
EndGlobalSection
31+
EndGlobal

0 commit comments

Comments
 (0)