anchor.diff:                |> List.fold (fun s f -> Map.add f p s) state.Projects
               main { state with Projects = projects }
             with e ->
  -            printMsg "ERROR" (sprintf "Project file '%s' is invalid: '%s'" file e.Message)
  +            printMsg "error" (sprintf "Project file '%s' is invalid: '%s'" file e.Message)
               main state
           else
  -          printMsg "ERROR" (sprintf "File '%s' does not exist" file)
  +          printMsg "error" (sprintf "File '%s' does not exist" file)
             main state
   
       | Declarations file ->
  
positive.code:           }
  
          match kind with
          | Synchronous -> printMsg "INFO" "Synchronous parsing started"
                           Async.RunSynchronously task
          | Normal -> printMsg "INFO" "Background parsing started"
                      Async.StartImmediate task
  
  
  
negative.code:                                   }
  
                                 ] } }
              | _ -> printMsg "error" "Could not find method"
  
              main state
  
  