anchor.diff:  //    let path = @"bool.fs"
   //    let fileList = getFiles path
   
  -    let parseTermPattern = @"(?<parse_function>parse_term)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>.*?)(?:\x22)"
  -    let parseTypePattern = @"(?<parse_function>parse_type)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>.*?)(?:\x22)"
  +    let parseTermPattern = @"(?<parse_function>parse_term)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>[^""]*)(?:\x22)"
  +    let parseTypePattern = @"(?<parse_function>parse_type)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>[^""]*)(?:\x22)"
       let patterns = [parseTermPattern; parseTypePattern]
   
  -    let conditions = [atSignCondition; invalidTextCondition; parsingErrorCondition; parsingSuccessCondition]
  +    let conditions = [atSignCondition; invalidTextCondition; parsingErrorCondition; parsingSuccessCondition; containsLinebreakCondition]
  +//    let conditions = [containsLinebreakCondition]
  +//    let conditions = [parsingSuccessCondition]
   
       printMessages projectFiles patterns conditions
positive.code: /// Adds a message to the list if "|>" occurs in the string for a parse_term or parse_type.
  let invalidTextCondition (item : (string * int * Match)) acc : (string * int * Match * string * string) list =
      substringFoundCondtion (item : (string * int * Match)) "|>" acc
      
  /// Adds a message to the list if a parsing error occurs for a parse_term or parse_type.
  let parsingErrorCondition (item : (string * int * Match)) acc : (string * int * Match * string * string) list =
  
negative.code:         | fileName :: tl ->
              let lineEndings = lineEndingMap fileName
              let fileText = (System.IO.File.ReadAllText fileName)
              let regex = new Regex(pattern, RegexOptions.Multiline)
              let matches = regex.Matches(fileText)
              let matchesList = matches |> Seq.cast |> Seq.toList
              let rec addInfo list (acc : (string * int * Match) list) =
                  match list with
  