Make Rider a bit happier (#3)

Git.Test/TestInit.fs

@@ -20,7 +20,7 @@ module TestInit =
 
         gitDir.Create ()
 
-        let r =
+        let _ =
             match Repository.init gitDir with
             | Ok r -> r
             | Error r -> failwithf "Failed to init repo: %+A" r

Git.sln.DotSettings

@@ -0,0 +1,5 @@
+<wpf:ResourceDictionary xml:space="preserve" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib" xmlns:ss="urn:shemas-jetbrains-com:settings-storage-xaml" xmlns:wpf="http://schemas.microsoft.com/winfx/2006/xaml/presentation">
+	<s:String x:Key="/Default/CodeInspection/Highlighting/InspectionSeverities/=FSharpInterpolatedString/@EntryIndexedValue">DO_NOT_SHOW</s:String>
+	<s:String x:Key="/Default/CodeInspection/Highlighting/InspectionSeverities/=FSharpRedundantDotInIndexer/@EntryIndexedValue">DO_NOT_SHOW</s:String>
+	<s:Boolean x:Key="/Default/UserDictionary/Words/=Chacon/@EntryIndexedValue">True</s:Boolean>
+	<s:Boolean x:Key="/Default/UserDictionary/Words/=failwithf/@EntryIndexedValue">True</s:Boolean></wpf:ResourceDictionary>

Git/Commit.fs

@@ -120,7 +120,7 @@ module Commit =
             | Some hash -> hash |> Hash.ofSpelling
 
         let consumeLabelledHash (expecting : OneOf) : string * Hash =
-            let w = consumeWord (expecting)
+            let w = consumeWord expecting
             let h = consumeHash w
             w, h
 

Git/EncodedObject.fs

@@ -99,7 +99,7 @@ module EncodedObject =
         let objectName = hashStr.[2..]
         let subDir = hashStr.[0..1]
 
-        let d = Repository.createSubdir (Repository.objectDir r) subDir
+        let d = Repository.createSubDir (Repository.objectDir r) subDir
         use filestream = r.Fs.File.Create (r.Fs.Path.Combine (d.FullName, objectName))
 
         compress o filestream

Git/Hash.fs

@@ -50,7 +50,7 @@ module Hash =
         let rec b (pos : int) =
             seq {
                 if pos < input.Length then
-                    yield value (input.[pos]) * 16uy + value input.[pos + 1]
+                    yield value input.[pos] * 16uy + value input.[pos + 1]
                     yield! b (pos + 2)
             }
 

Git/Repository.fs

@@ -30,7 +30,7 @@ module Repository =
         r.Fs.Path.Combine ((gitDir r).FullName, "refs")
         |> r.Fs.DirectoryInfo.FromDirectoryName
 
-    let internal createSubdir (r : IDirectoryInfo) (name : string) : IDirectoryInfo =
+    let internal createSubDir (r : IDirectoryInfo) (name : string) : IDirectoryInfo =
         let output =
             r.FileSystem.Path.Combine (r.FullName, name)
             |> r.FileSystem.DirectoryInfo.FromDirectoryName
@@ -64,12 +64,12 @@ module Repository =
         else
 
         // TODO do this atomically
-        let gitDir = createSubdir dir ".git"
-        let objectDir = createSubdir gitDir "objects"
-        let _packDir = createSubdir objectDir "pack"
-        let _infoDir = createSubdir objectDir "info"
-        let refsDir = createSubdir gitDir "refs"
-        let _headsDir = createSubdir refsDir "heads"
-        let _tagsDir = createSubdir refsDir "tags"
+        let gitDir = createSubDir dir ".git"
+        let objectDir = createSubDir gitDir "objects"
+        let _packDir = createSubDir objectDir "pack"
+        let _infoDir = createSubDir objectDir "info"
+        let refsDir = createSubDir gitDir "refs"
+        let _headsDir = createSubDir refsDir "heads"
+        let _tagsDir = createSubDir refsDir "tags"
 
         make dir |> Option.get |> Ok

Git/Stream.fs

@@ -52,5 +52,5 @@ module internal Stream =
 
     let consumeToEnd (b : MemoryStream) : byte array =
         use newMs = new MemoryStream ()
-        b.CopyTo (newMs)
+        b.CopyTo newMs
         newMs.ToArray ()

Git/SymbolicReference.fs

@@ -12,7 +12,7 @@ type SymbolicRef =
     | MergeHead
     | Head
     | OrigHead
-    // TODO - determine how an arbitrary symbolicref actually behaves
+    // TODO - determine how an arbitrary symbolic ref actually behaves
     | Verbatim of string
 
     override this.ToString () : string =

Git/Tree.fs

@@ -1,7 +1,6 @@
 namespace Git
 
 open System
-open System.Collections.Generic
 open System.IO
 open System.Text
 open Git.Internals