diff --git a/src/FSharpLint.Core/Framework/HintParser.fs b/src/FSharpLint.Core/Framework/HintParser.fs
index 54067ac58..a8648f1f8 100644
--- a/src/FSharpLint.Core/Framework/HintParser.fs
+++ b/src/FSharpLint.Core/Framework/HintParser.fs
@@ -7,8 +7,8 @@ open HintParserTypes
 
 module HintParser =
 
-    let charListToString charList =
-        Seq.fold (fun concatenatedString charElement -> concatenatedString + charElement.ToString()) String.Empty charList
+    let charListToString (charList: char seq) =
+        String.Concat charList
 
     let pischar chars : Parser<char, 'CharParser> =
         satisfy (fun character -> List.exists ((=) character) chars)