Tidy

HtmlCopyVSCode.sln

@@ -0,0 +1,31 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27703.2042
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "HtmlCopyVSCode", "HtmlCopyVSCode\HtmlCopyVSCode.fsproj", "{21F1555E-2034-452D-828A-E64FD28784B6}"
+EndProject
+Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "HtmlCopyVSCode.Clipboard", "HtmlCopyVSCode.Clipboard\HtmlCopyVSCode.Clipboard.fsproj", "{13150245-6CEE-4905-9177-93685A02D29F}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{21F1555E-2034-452D-828A-E64FD28784B6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{21F1555E-2034-452D-828A-E64FD28784B6}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{21F1555E-2034-452D-828A-E64FD28784B6}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{21F1555E-2034-452D-828A-E64FD28784B6}.Release|Any CPU.Build.0 = Release|Any CPU
+		{13150245-6CEE-4905-9177-93685A02D29F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{13150245-6CEE-4905-9177-93685A02D29F}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{13150245-6CEE-4905-9177-93685A02D29F}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{13150245-6CEE-4905-9177-93685A02D29F}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {6901DCC7-8212-465B-9D45-FAA43EB876D4}
+	EndGlobalSection
+EndGlobal

HtmlCopyVSCode/Program.fs

@@ -10,7 +10,6 @@ open System.IO
 open System.Linq
 open System.Text
 open HtmlCopyVSCode.Arguments
-open HtmlCopyVSCode.Clipboard
 
 [<EntryPoint>]
 let main argv =
@@ -19,8 +18,8 @@ let main argv =
 
     let results = (parser.ParseCommandLine argv).GetAllResults()
     let className = match results with
-                    | (Class className : Arguments) :: _ -> Some className
-                    | _ -> None
+                        | (Class className : Arguments) :: _ -> Some className
+                        | _ -> None
 
     let clipboard = Clipboard.create()