docs(fs): add a F# sample

d-edge · Jan 6, 2022 · 7a3aba1 · 7a3aba1
1 parent 9e09a60
commit 7a3aba1
Show file tree

Hide file tree

Showing 4 changed files with 30 additions and 1 deletion.
diff --git a/Cardidy.sln b/Cardidy.sln
@@ -11,6 +11,8 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "src", "src", "{B14BC6AA-208
 EndProject
 Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "App", "src\App\App.csproj", "{D0574C1A-B65D-4320-9952-5920D8893508}"
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "AppFs", "src\AppFs\AppFs.fsproj", "{26999B7F-06E1-445D-BB5C-1267ED318B77}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -29,6 +31,10 @@ Global
 		{D0574C1A-B65D-4320-9952-5920D8893508}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D0574C1A-B65D-4320-9952-5920D8893508}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D0574C1A-B65D-4320-9952-5920D8893508}.Release|Any CPU.Build.0 = Release|Any CPU
+		{26999B7F-06E1-445D-BB5C-1267ED318B77}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{26999B7F-06E1-445D-BB5C-1267ED318B77}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{26999B7F-06E1-445D-BB5C-1267ED318B77}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{26999B7F-06E1-445D-BB5C-1267ED318B77}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -38,5 +44,6 @@ Global
 	EndGlobalSection
 	GlobalSection(NestedProjects) = preSolution
 		{D0574C1A-B65D-4320-9952-5920D8893508} = {B14BC6AA-2080-4BB8-90A7-C83DDB6F2659}
+		{26999B7F-06E1-445D-BB5C-1267ED318B77} = {B14BC6AA-2080-4BB8-90A7-C83DDB6F2659}
 	EndGlobalSection
 EndGlobal
diff --git a/README.md b/README.md
@@ -56,7 +56,7 @@ open System
 
 [<EntryPoint>]
 let main _ =
-    let isVisa = Dedge.Cardidy.Identify "4127540509730813" |> List.head = Dedge.CardType.Visa
+    let isVisa = Dedge.Cardidy.Identify "4127540509730813" |> Seq.head = Dedge.CardType.Visa
     printfn "%b" isVisa
     0
 ```

diff --git a/src/AppFs/AppFs.fsproj b/src/AppFs/AppFs.fsproj
@@ -0,0 +1,16 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\Dedge.Cardidy\Dedge.Cardidy.csproj" />
+  </ItemGroup>
+
+</Project>
diff --git a/src/AppFs/Program.fs b/src/AppFs/Program.fs
@@ -0,0 +1,6 @@
+[<EntryPoint>]
+let main _ =
+    let card = "4127540509730813"
+    let isVisa = Dedge.Cardidy.Identify card |> Seq.head = Dedge.CardType.Visa
+    printfn "Is %s a visa: %b" card isVisa
+    0