Fix message

Regression from acdd970
flycheck · Dec 23, 2014 · 23a513b · 23a513b
1 parent acdd970
commit 23a513b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/flycheck-ocaml.el b/flycheck-ocaml.el
@@ -81,7 +81,7 @@ Return the corresponding `flycheck-error'."
         ;; https://github.com/flycheck/flycheck-ocaml/issues/2
         (flycheck-error-new-at (or .start.line 1)
                                (when .start.col (1+ .start.col))
-                               (or level 'error) (or .message message)
+                               (or level 'error) (or message .message)
                                :checker checker
                                :buffer buffer
                                :filename (buffer-file-name))))))