Org lint and Haskell source code blocks

[Dominik Schrempf]

Hi,

whenever I have a Haskell source code block in my Org mode file, and I execute
=org-lint=, I get the following error:

#+begin_quote
Debugger entered--Lisp error: (wrong-type-argument listp :any)
#+end_quote

(This was obtained with a minimal file just having:
#+BEGIN_SRC haskell
inc n = n+1
#+END_SRC
)

Do you have an idea about what could be the problem? =org-lint= works just fine
in other buffers without Haskell code blocks.

Please find the full error message below.

Thank you,
Dominik

--

Debugger entered--Lisp error: (wrong-type-argument listp :any)
  mapcar(car (compile . :any))
  #f(compiled-function (l) #<bytecode 0x2cbbb4d>)("haskell")
  mapcan(#f(compiled-function (l) #<bytecode 0x2cbbb4d>) ("haskell"))
  cl-mapcan(#f(compiled-function (l) #<bytecode 0x2cbbb4d>) ("haskell"))
  #f(compiled-function (datum language headers) #<bytecode 
0x1f38aa1>)((src-block (:language "haskell" :switches nil :parameters nil 
:begin 1 :end 43 :number-lines nil :preserve-indent nil :retain-labels t 
:use-labels t :label-fmt nil :value "inc n = n+1\n" :post-blank 0 
:post-affiliated 1 :parent (section (:begin 1 :end 43 :contents-begin 1 
:contents-end 43 :post-blank 0 :post-affiliated 1 :parent (org-data nil #31)) 
#1))) "haskell" nil)
  #f(compiled-function (datum) #<bytecode 0x1f38aad>)((src-block (:language 
"haskell" :switches nil :parameters nil :begin 1 :end 43 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "inc 
n = n+1\n" :post-blank 0 :post-affiliated 1 :parent (section (:begin 1 :end 43 
:contents-begin 1 :contents-end 43 :post-blank 0 :post-affiliated 1 :parent 
(org-data nil #31)) #1))))
  #f(compiled-function (--data) #<bytecode 0x1f38ab9>)((src-block (:language 
"haskell" :switches nil :parameters nil :begin 1 :end 43 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "inc 
n = n+1\n" :post-blank 0 :post-affiliated 1 :parent (section (:begin 1 :end 43 
:contents-begin 1 :contents-end 43 :post-blank 0 :post-affiliated 1 :parent 
(org-data nil #31)) #1))))
  mapc(#f(compiled-function (--data) #<bytecode 0x1f38ab9>) ((src-block 
(:language "haskell" :switches nil :parameters nil :begin 1 :end 43 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "inc n = n+1\n" :post-blank 0 :post-affiliated 1 :parent 
(section (:begin 1 :end 43 :contents-begin 1 :contents-end 43 :post-blank 0 
:post-affiliated 1 :parent (org-data nil #33)) . #2)))))
  #f(compiled-function (--data) #<bytecode 0x1f38ab9>)((section (:begin 1 :end 
43 :contents-begin 1 :contents-end 43 :post-blank 0 :post-affiliated 1 :parent 
(org-data nil #1)) (src-block (:language "haskell" :switches nil :parameters 
nil :begin 1 :end 43 :number-lines nil :preserve-indent nil :retain-labels t 
:use-labels t :label-fmt nil :value "inc n = n+1\n" :post-blank 0 
:post-affiliated 1 :parent #1))))
  mapc(#f(compiled-function (--data) #<bytecode 0x1f38ab9>) ((section (:begin 1 
:end 43 :contents-begin 1 :contents-end 43 :post-blank 0 :post-affiliated 1 
:parent (org-data nil . #2)) (src-block (:language "haskell" :switches nil 
:parameters nil :begin 1 :end 43 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "inc n = n+1\n" 
:post-blank 0 :post-affiliated 1 :parent #3)))))
  #f(compiled-function (--data) #<bytecode 0x1f38ab9>)((org-data nil (section 
(:begin 1 :end 43 :contents-begin 1 :contents-end 43 :post-blank 0 
:post-affiliated 1 :parent #1) (src-block (:language "haskell" :switches nil 
:parameters nil :begin 1 :end 43 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "inc n = n+1\n" 
:post-blank 0 :post-affiliated 1 :parent #4)))))
  org-element-map((org-data nil (section (:begin 1 :end 43 :contents-begin 1 
:contents-end 43 :post-blank 0 :post-affiliated 1 :parent #1) (src-block 
(:language "haskell" :switches nil :parameters nil :begin 1 :end 43 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "inc n = n+1\n" :post-blank 0 :post-affiliated 1 :parent 
#4)))) (babel-call inline-babel-call inline-src-block keyword node-property 
src-block) #f(compiled-function (datum) #<bytecode 0x1f38aad>))
  org-lint-wrong-header-argument((org-data nil (section (:begin 1 :end 43 
:contents-begin 1 :contents-end 43 :post-blank 0 :post-affiliated 1 :parent #1) 
(src-block (:language "haskell" :switches nil :parameters nil :begin 1 :end 43 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "inc n = n+1\n" :post-blank 0 :post-affiliated 1 :parent 
#4)))))
  #f(compiled-function (c) #<bytecode 0x4001e11>)(#s(org-lint-checker :name 
wrong-header-argument :description "Report wrong babel headers" :categories 
(babel) :trust high))
  mapcan(#f(compiled-function (c) #<bytecode 0x4001e11>) (#s(org-lint-checker 
:name duplicate-custom-id :description "Report duplicates CUSTOM_ID prop..." 
:categories (link) :trust high) #s(org-lint-checker :name duplicate-name 
:description "Report duplicate NAME values" :categories (babel link) :trust 
high) #s(org-lint-checker :name duplicate-target :description "Report duplicate 
targets" :categories (link) :trust high) #s(org-lint-checker :name 
duplicate-footnote-definition :description "Report duplicate footnote 
defini..." :categories (footnote) :trust high) #s(org-lint-checker :name 
orphaned-affiliated-keywords :description "Report orphaned affiliated keywo..." 
:categories (default) :trust low) #s(org-lint-checker :name 
obsolete-affiliated-keywords :description "Report obsolete affiliated keywo..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
deprecated-export-blocks :description "Report deprecated export block s..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
deprecated-header-syntax :description "Report deprecated Babel header s..." 
:categories (obsolete babel) :trust low) #s(org-lint-checker :name 
missing-language-in-src-block :description "Report missing language in 
sourc..." :categories (babel) :trust high) #s(org-lint-checker :name 
missing-backend-in-export-block :description "Report missing back-end in 
expor..." :categories (export) :trust high) #s(org-lint-checker :name 
invalid-babel-call-block :description "Report invalid Babel call blocks" 
:categories (babel) :trust high) #s(org-lint-checker :name colon-in-name 
:description "Report NAME values with a colon" :categories (babel) :trust high) 
#s(org-lint-checker :name wrong-header-argument :description "Report wrong 
babel headers" :categories (babel) :trust high) #s(org-lint-checker :name 
wrong-header-value :description "Report invalid value in babel he..." 
:categories (babel) :trust low) #s(org-lint-checker :name 
deprecated-category-setup :description "Report misuse of CATEGORY keywor..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
invalid-coderef-link :description "Report \"coderef\" links with unkn..." 
:categories (link) :trust high) #s(org-lint-checker :name 
invalid-custom-id-link :description "Report \"custom-id\" links with un..." 
:categories (link) :trust high) #s(org-lint-checker :name invalid-fuzzy-link 
:description "Report \"fuzzy\" links with unknow..." :categories (link) :trust 
high) #s(org-lint-checker :name invalid-id-link :description "Report \"id\" 
links with unknown d..." :categories (link) :trust high) #s(org-lint-checker 
:name link-to-local-file :description "Report links to non-existent loc..." 
:categories (link) :trust low) #s(org-lint-checker :name 
non-existent-setupfile-parameter :description "Report SETUPFILE keywords with 
n..." :categories (default) :trust low) #s(org-lint-checker :name 
wrong-include-link-parameter :description "Report INCLUDE keywords with mis..." 
:categories (export) :trust low) #s(org-lint-checker :name 
obsolete-include-markup :description "Report obsolete markup in INCLUD..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
unknown-options-item :description "Report unknown items in OPTIONS ..." 
:categories (export) :trust low) #s(org-lint-checker :name 
invalid-macro-argument-and-template :description "Report spurious macro 
arguments ..." :categories (export) :trust low) #s(org-lint-checker :name 
special-property-in-properties-drawer :description "Report special properties 
in pro..." :categories (properties) :trust high) #s(org-lint-checker :name 
obsolete-properties-drawer :description "Report obsolete syntax for prope..." 
:categories (obsolete properties) :trust high) #s(org-lint-checker :name 
invalid-effort-property :description "Report invalid duration in EFFOR..." 
:categories (properties) :trust high) #s(org-lint-checker :name 
undefined-footnote-reference :description "Report missing definition for fo..." 
:categories (footnote) :trust high) #s(org-lint-checker :name 
unreferenced-footnote-definition :description "Report missing reference for 
foo..." :categories (footnote) :trust high) #s(org-lint-checker :name 
extraneous-element-in-footnote-section :description "Report non-footnote 
definitions ..." :categories (footnote) :trust high) #s(org-lint-checker :name 
invalid-keyword-syntax :description "Report probable invalid keywords" 
:categories (default) :trust low) ...))
  cl-mapcan(#f(compiled-function (c) #<bytecode 0x4001e11>) 
(#s(org-lint-checker :name duplicate-custom-id :description "Report duplicates 
CUSTOM_ID prop..." :categories (link) :trust high) #s(org-lint-checker :name 
duplicate-name :description "Report duplicate NAME values" :categories (babel 
link) :trust high) #s(org-lint-checker :name duplicate-target :description 
"Report duplicate targets" :categories (link) :trust high) #s(org-lint-checker 
:name duplicate-footnote-definition :description "Report duplicate footnote 
defini..." :categories (footnote) :trust high) #s(org-lint-checker :name 
orphaned-affiliated-keywords :description "Report orphaned affiliated keywo..." 
:categories (default) :trust low) #s(org-lint-checker :name 
obsolete-affiliated-keywords :description "Report obsolete affiliated keywo..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
deprecated-export-blocks :description "Report deprecated export block s..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
deprecated-header-syntax :description "Report deprecated Babel header s..." 
:categories (obsolete babel) :trust low) #s(org-lint-checker :name 
missing-language-in-src-block :description "Report missing language in 
sourc..." :categories (babel) :trust high) #s(org-lint-checker :name 
missing-backend-in-export-block :description "Report missing back-end in 
expor..." :categories (export) :trust high) #s(org-lint-checker :name 
invalid-babel-call-block :description "Report invalid Babel call blocks" 
:categories (babel) :trust high) #s(org-lint-checker :name colon-in-name 
:description "Report NAME values with a colon" :categories (babel) :trust high) 
#s(org-lint-checker :name wrong-header-argument :description "Report wrong 
babel headers" :categories (babel) :trust high) #s(org-lint-checker :name 
wrong-header-value :description "Report invalid value in babel he..." 
:categories (babel) :trust low) #s(org-lint-checker :name 
deprecated-category-setup :description "Report misuse of CATEGORY keywor..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
invalid-coderef-link :description "Report \"coderef\" links with unkn..." 
:categories (link) :trust high) #s(org-lint-checker :name 
invalid-custom-id-link :description "Report \"custom-id\" links with un..." 
:categories (link) :trust high) #s(org-lint-checker :name invalid-fuzzy-link 
:description "Report \"fuzzy\" links with unknow..." :categories (link) :trust 
high) #s(org-lint-checker :name invalid-id-link :description "Report \"id\" 
links with unknown d..." :categories (link) :trust high) #s(org-lint-checker 
:name link-to-local-file :description "Report links to non-existent loc..." 
:categories (link) :trust low) #s(org-lint-checker :name 
non-existent-setupfile-parameter :description "Report SETUPFILE keywords with 
n..." :categories (default) :trust low) #s(org-lint-checker :name 
wrong-include-link-parameter :description "Report INCLUDE keywords with mis..." 
:categories (export) :trust low) #s(org-lint-checker :name 
obsolete-include-markup :description "Report obsolete markup in INCLUD..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
unknown-options-item :description "Report unknown items in OPTIONS ..." 
:categories (export) :trust low) #s(org-lint-checker :name 
invalid-macro-argument-and-template :description "Report spurious macro 
arguments ..." :categories (export) :trust low) #s(org-lint-checker :name 
special-property-in-properties-drawer :description "Report special properties 
in pro..." :categories (properties) :trust high) #s(org-lint-checker :name 
obsolete-properties-drawer :description "Report obsolete syntax for prope..." 
:categories (obsolete properties) :trust high) #s(org-lint-checker :name 
invalid-effort-property :description "Report invalid duration in EFFOR..." 
:categories (properties) :trust high) #s(org-lint-checker :name 
undefined-footnote-reference :description "Report missing definition for fo..." 
:categories (footnote) :trust high) #s(org-lint-checker :name 
unreferenced-footnote-definition :description "Report missing reference for 
foo..." :categories (footnote) :trust high) #s(org-lint-checker :name 
extraneous-element-in-footnote-section :description "Report non-footnote 
definitions ..." :categories (footnote) :trust high) #s(org-lint-checker :name 
invalid-keyword-syntax :description "Report probable invalid keywords" 
:categories (default) :trust low) ...))
  org-lint--generate-reports(#<buffer test.org> (#s(org-lint-checker :name 
duplicate-custom-id :description "Report duplicates CUSTOM_ID prop..." 
:categories (link) :trust high) #s(org-lint-checker :name duplicate-name 
:description "Report duplicate NAME values" :categories (babel link) :trust 
high) #s(org-lint-checker :name duplicate-target :description "Report duplicate 
targets" :categories (link) :trust high) #s(org-lint-checker :name 
duplicate-footnote-definition :description "Report duplicate footnote 
defini..." :categories (footnote) :trust high) #s(org-lint-checker :name 
orphaned-affiliated-keywords :description "Report orphaned affiliated keywo..." 
:categories (default) :trust low) #s(org-lint-checker :name 
obsolete-affiliated-keywords :description "Report obsolete affiliated keywo..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
deprecated-export-blocks :description "Report deprecated export block s..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
deprecated-header-syntax :description "Report deprecated Babel header s..." 
:categories (obsolete babel) :trust low) #s(org-lint-checker :name 
missing-language-in-src-block :description "Report missing language in 
sourc..." :categories (babel) :trust high) #s(org-lint-checker :name 
missing-backend-in-export-block :description "Report missing back-end in 
expor..." :categories (export) :trust high) #s(org-lint-checker :name 
invalid-babel-call-block :description "Report invalid Babel call blocks" 
:categories (babel) :trust high) #s(org-lint-checker :name colon-in-name 
:description "Report NAME values with a colon" :categories (babel) :trust high) 
#s(org-lint-checker :name wrong-header-argument :description "Report wrong 
babel headers" :categories (babel) :trust high) #s(org-lint-checker :name 
wrong-header-value :description "Report invalid value in babel he..." 
:categories (babel) :trust low) #s(org-lint-checker :name 
deprecated-category-setup :description "Report misuse of CATEGORY keywor..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
invalid-coderef-link :description "Report \"coderef\" links with unkn..." 
:categories (link) :trust high) #s(org-lint-checker :name 
invalid-custom-id-link :description "Report \"custom-id\" links with un..." 
:categories (link) :trust high) #s(org-lint-checker :name invalid-fuzzy-link 
:description "Report \"fuzzy\" links with unknow..." :categories (link) :trust 
high) #s(org-lint-checker :name invalid-id-link :description "Report \"id\" 
links with unknown d..." :categories (link) :trust high) #s(org-lint-checker 
:name link-to-local-file :description "Report links to non-existent loc..." 
:categories (link) :trust low) #s(org-lint-checker :name 
non-existent-setupfile-parameter :description "Report SETUPFILE keywords with 
n..." :categories (default) :trust low) #s(org-lint-checker :name 
wrong-include-link-parameter :description "Report INCLUDE keywords with mis..." 
:categories (export) :trust low) #s(org-lint-checker :name 
obsolete-include-markup :description "Report obsolete markup in INCLUD..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
unknown-options-item :description "Report unknown items in OPTIONS ..." 
:categories (export) :trust low) #s(org-lint-checker :name 
invalid-macro-argument-and-template :description "Report spurious macro 
arguments ..." :categories (export) :trust low) #s(org-lint-checker :name 
special-property-in-properties-drawer :description "Report special properties 
in pro..." :categories (properties) :trust high) #s(org-lint-checker :name 
obsolete-properties-drawer :description "Report obsolete syntax for prope..." 
:categories (obsolete properties) :trust high) #s(org-lint-checker :name 
invalid-effort-property :description "Report invalid duration in EFFOR..." 
:categories (properties) :trust high) #s(org-lint-checker :name 
undefined-footnote-reference :description "Report missing definition for fo..." 
:categories (footnote) :trust high) #s(org-lint-checker :name 
unreferenced-footnote-definition :description "Report missing reference for 
foo..." :categories (footnote) :trust high) #s(org-lint-checker :name 
extraneous-element-in-footnote-section :description "Report non-footnote 
definitions ..." :categories (footnote) :trust high) #s(org-lint-checker :name 
invalid-keyword-syntax :description "Report probable invalid keywords" 
:categories (default) :trust low) ...))
  org-lint--refresh-reports()
  org-lint--display-reports(#<buffer test.org> (#s(org-lint-checker :name 
duplicate-custom-id :description "Report duplicates CUSTOM_ID prop..." 
:categories (link) :trust high) #s(org-lint-checker :name duplicate-name 
:description "Report duplicate NAME values" :categories (babel link) :trust 
high) #s(org-lint-checker :name duplicate-target :description "Report duplicate 
targets" :categories (link) :trust high) #s(org-lint-checker :name 
duplicate-footnote-definition :description "Report duplicate footnote 
defini..." :categories (footnote) :trust high) #s(org-lint-checker :name 
orphaned-affiliated-keywords :description "Report orphaned affiliated keywo..." 
:categories (default) :trust low) #s(org-lint-checker :name 
obsolete-affiliated-keywords :description "Report obsolete affiliated keywo..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
deprecated-export-blocks :description "Report deprecated export block s..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
deprecated-header-syntax :description "Report deprecated Babel header s..." 
:categories (obsolete babel) :trust low) #s(org-lint-checker :name 
missing-language-in-src-block :description "Report missing language in 
sourc..." :categories (babel) :trust high) #s(org-lint-checker :name 
missing-backend-in-export-block :description "Report missing back-end in 
expor..." :categories (export) :trust high) #s(org-lint-checker :name 
invalid-babel-call-block :description "Report invalid Babel call blocks" 
:categories (babel) :trust high) #s(org-lint-checker :name colon-in-name 
:description "Report NAME values with a colon" :categories (babel) :trust high) 
#s(org-lint-checker :name wrong-header-argument :description "Report wrong 
babel headers" :categories (babel) :trust high) #s(org-lint-checker :name 
wrong-header-value :description "Report invalid value in babel he..." 
:categories (babel) :trust low) #s(org-lint-checker :name 
deprecated-category-setup :description "Report misuse of CATEGORY keywor..." 
:categories (obsolete) :trust high) #s(org-lint-checker :name 
invalid-coderef-link :description "Report \"coderef\" links with unkn..." 
:categories (link) :trust high) #s(org-lint-checker :name 
invalid-custom-id-link :description "Report \"custom-id\" links with un..." 
:categories (link) :trust high) #s(org-lint-checker :name invalid-fuzzy-link 
:description "Report \"fuzzy\" links with unknow..." :categories (link) :trust 
high) #s(org-lint-checker :name invalid-id-link :description "Report \"id\" 
links with unknown d..." :categories (link) :trust high) #s(org-lint-checker 
:name link-to-local-file :description "Report links to non-existent loc..." 
:categories (link) :trust low) #s(org-lint-checker :name 
non-existent-setupfile-parameter :description "Report SETUPFILE keywords with 
n..." :categories (default) :trust low) #s(org-lint-checker :name 
wrong-include-link-parameter :description "Report INCLUDE keywords with mis..." 
:categories (export) :trust low) #s(org-lint-checker :name 
obsolete-include-markup :description "Report obsolete markup in INCLUD..." 
:categories (obsolete export) :trust low) #s(org-lint-checker :name 
unknown-options-item :description "Report unknown items in OPTIONS ..." 
:categories (export) :trust low) #s(org-lint-checker :name 
invalid-macro-argument-and-template :description "Report spurious macro 
arguments ..." :categories (export) :trust low) #s(org-lint-checker :name 
special-property-in-properties-drawer :description "Report special properties 
in pro..." :categories (properties) :trust high) #s(org-lint-checker :name 
obsolete-properties-drawer :description "Report obsolete syntax for prope..." 
:categories (obsolete properties) :trust high) #s(org-lint-checker :name 
invalid-effort-property :description "Report invalid duration in EFFOR..." 
:categories (properties) :trust high) #s(org-lint-checker :name 
undefined-footnote-reference :description "Report missing definition for fo..." 
:categories (footnote) :trust high) #s(org-lint-checker :name 
unreferenced-footnote-definition :description "Report missing reference for 
foo..." :categories (footnote) :trust high) #s(org-lint-checker :name 
extraneous-element-in-footnote-section :description "Report non-footnote 
definitions ..." :categories (footnote) :trust high) #s(org-lint-checker :name 
invalid-keyword-syntax :description "Report probable invalid keywords" 
:categories (default) :trust low) ...))
  org-lint(nil)
  funcall-interactively(org-lint nil)
  call-interactively(org-lint nil nil)
  command-execute(org-lint)