WIP move 2

nblockchain · Aug 22, 2023 · 6acc336 · 6acc336
1 parent 7d11eec
commit 6acc336
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/Fsdk/Git.fs b/Fsdk/Git.fs
@@ -25,7 +25,7 @@ module Git =
     let private IsGitInstalled() : bool =
         let gitCheckCommand =
             match Misc.GuessPlatform() with
-            | Misc.Platform.Windows ->
+            | Platform.Windows ->
                 {
                     Command = "git"
                     Arguments = "--version"

diff --git a/Fsdk/Misc.fs b/Fsdk/Misc.fs
@@ -21,6 +21,11 @@ type ArgsParsed =
     | OnlyFlags of seq<string>
     | BothFlags of seq<string>*string*seq<string>
 
+type Platform =
+    | Windows
+    | Linux
+    | Mac
+
 
 module Misc =
 
@@ -192,11 +197,6 @@ module Misc =
             str.Split([| separator |], StringSplitOptions.RemoveEmptyEntries)
         )
 
-    type Platform =
-        | Windows
-        | Linux
-        | Mac
-
     // FIXME: maybe get rid of this method when we migrate to .NET6 (or earlier)
     // because it seems it's unnecessary (e.g. see https://gitlab.com/nblockchain/geewallet/-/merge_requests/140 )
     let GuessPlatform() =

diff --git a/Fsdk/Network.fs b/Fsdk/Network.fs
@@ -441,7 +441,7 @@ module Network =
     let internal CreateNugetCommand (nugetExe: FileInfo) (args: string) =
         let platform = Misc.GuessPlatform()
 
-        if platform = Misc.Platform.Windows then
+        if platform = Platform.Windows then
             {
                 Command = nugetExe.FullName
                 Arguments = args

diff --git a/Fsdk/Process.fs b/Fsdk/Process.fs
@@ -435,7 +435,7 @@ module Process =
         paths.Any(fun path -> File.Exists(Path.Combine(path, command)))
 
     let CommandWorksInShell(command: string) : bool =
-        if (Misc.GuessPlatform() = Misc.Platform.Windows) then
+        if (Misc.GuessPlatform() = Platform.Windows) then
             let exists = File.Exists(command) || IsFileInWindowsPath(command)
 
             if (exists && HasWindowsExecutableExtension(command)) then
@@ -499,7 +499,7 @@ module Process =
 
     // FIXME: it returns the first result, but we should return all (array<string>)
     let VsWhere(searchPattern: string) : Option<string> =
-        if Misc.GuessPlatform() <> Misc.Platform.Windows then
+        if Misc.GuessPlatform() <> Platform.Windows then
             failwith "vswhere.exe doesn't exist in other platforms than Windows"
 
         let programFiles =