Avoid throwing exceptions in indentation tracker.

Fixes fsprojects#954
VincentDondain · Feb 25, 2015 · 97b12a6 · 97b12a6
1 parent 4f75428
commit 97b12a6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/monodevelop/MonoDevelop.FSharpBinding/Services/FSharpIndentationTracker.fs b/monodevelop/MonoDevelop.FSharpBinding/Services/FSharpIndentationTracker.fs
@@ -43,6 +43,8 @@ type FSharpIndentationTracker(doc:Document) =
         let reIndent = column = text.Length + 1 && caretColumn = 1 
         if not reIndent then indentation else
           let indent = getIndentation 0 (line.PreviousLine)
+          let initialWs = initialWhiteSpace text 0
+          if initialWs >= indent.Length then indentation else
           indent.Substring(initialWhiteSpace text 0)
 
     interface IIndentationTracker with