Rename profile to user, matches API /user/ path.

CaptnCodr · CaptnCodr · commit 4e56af752dff · 2022-09-08T13:22:48.000+02:00
diff --git a/Arguments.fs b/Arguments.fs
@@ -6,14 +6,14 @@ module Arguments =
 
     [<DisableHelpFlags>]
     type CliArguments =
-        | [<CliPrefix(CliPrefix.None);AltCommandLine("-p")>] Profile of string
+        | [<CliPrefix(CliPrefix.None);AltCommandLine("-u")>] User of string
         | [<CliPrefix(CliPrefix.None);AltCommandLine("-v");>] Version
         | [<CliPrefix(CliPrefix.None);AltCommandLine("-h");>] Help
 
         interface IArgParserTemplate with
             member this.Usage =
                 match this with 
-                | Profile _ -> "Profile of specific user."
+                | User _ -> "User profile of specific user."
 
                 | Version -> "Shows actual application version."
                 | Help -> "Displays this help"
diff --git a/Data/Users.json b/Data/Users.json
diff --git a/Program.fs b/Program.fs
@@ -9,8 +9,8 @@ module Program =
 
     let runCommands (parser: ArgumentParser<CliArguments>) (args: string array) =
         match (parser.Parse args).GetAllResults() with 
-        | [ Profile p ] ->  
-            p |> Profile.getUser
+        | [ User p ] ->  
+            p |> Users.getUser
 
         | [ Version ] -> 
             Assembly.GetExecutingAssembly().GetName().Version |> string
diff --git a/Users.fs b/Users.fs
@@ -4,12 +4,12 @@ open FsHttp
 open FSharp.Data
 open System
 
-module Profile = 
+module Users = 
 
     [<Literal>]
     let Url = "https://api.github.com/users"
 
-    type ProfileResponse = JsonProvider<"./Data/Profile.json", ResolutionFolder=__SOURCE_DIRECTORY__>
+    type ProfileResponse = JsonProvider<"./Data/Users.json", ResolutionFolder=__SOURCE_DIRECTORY__>
 
     let getUser (user: string) : string = 
         http {
diff --git a/github-api-cli.fsproj b/github-api-cli.fsproj
@@ -11,11 +11,11 @@
   </PropertyGroup>
   <ItemGroup>
     <Content Include=".config\dotnet-tools.json" />
-    <Content Include="Data\Profile.json" />
+    <Content Include="Data\Users.json" />
     <None Include="paket.dependencies" />
     <None Include="paket.references" />
     <Compile Include="Arguments.fs" />
-    <Compile Include="Profile.fs" />
+    <Compile Include="Users.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <ItemGroup />
