emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Org lint and Haskell source code blocks
@ 2021-09-21  6:47 Dominik Schrempf
  2021-09-21  7:16 ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: Dominik Schrempf @ 2021-09-21  6:47 UTC (permalink / raw)
  To: Emacs Org Mode Mailing List

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)


^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Org lint and Haskell source code blocks
  2021-09-21  6:47 Org lint and Haskell source code blocks Dominik Schrempf
@ 2021-09-21  7:16 ` Ihor Radchenko
  2021-09-21  7:27   ` Dominik Schrempf
  0 siblings, 1 reply; 4+ messages in thread
From: Ihor Radchenko @ 2021-09-21  7:16 UTC (permalink / raw)
  To: Dominik Schrempf; +Cc: Emacs Org Mode Mailing List

[-- Attachment #1: Type: text/plain, Size: 240 bytes --]

Dominik Schrempf <dominik.schrempf@gmail.com> writes:

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

Confirmed.

Can you try with the attached patch?

Best,
Ihor


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Fix-org-babel-header-args-haskell-not-being-an-alist.patch --]
[-- Type: text/x-diff, Size: 1061 bytes --]

From f640249d08a14bfde417c38274634b88c789d1c7 Mon Sep 17 00:00:00 2001
Message-Id: <f640249d08a14bfde417c38274634b88c789d1c7.1632208540.git.yantar92@gmail.com>
From: Ihor Radchenko <yantar92@gmail.com>
Date: Tue, 21 Sep 2021 15:10:45 +0800
Subject: [PATCH] Fix org-babel-header-args:haskell not being an alist

* lisp/ob-haskell.el (org-babel-header-args:haskell): The old value of
the variable was not argument alist, as expected by Org babel code.

Fixes https://orgmode.org/list/87fsty7750.fsf@gmail.com
---
 lisp/ob-haskell.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el
index a6f0e55f7..971e1ce6a 100644
--- a/lisp/ob-haskell.el
+++ b/lisp/ob-haskell.el
@@ -70,7 +70,7 @@ (defcustom org-babel-haskell-compiler "ghc"
   :package-version '(Org "9.4")
   :type 'string)
 
-(defconst org-babel-header-args:haskell '(compile . :any)
+(defconst org-babel-header-args:haskell '((compile . :any))
   "Haskell-specific header arguments.")
 
 (defun org-babel-haskell-execute (body params)
-- 
2.32.0


^ permalink raw reply related	[flat|nested] 4+ messages in thread

* Re: Org lint and Haskell source code blocks
  2021-09-21  7:16 ` Ihor Radchenko
@ 2021-09-21  7:27   ` Dominik Schrempf
  2021-09-21  8:55     ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: Dominik Schrempf @ 2021-09-21  7:27 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: Emacs Org Mode Mailing List

Thank you, org-lint works just fine after applying your patch!

Ihor Radchenko <yantar92@gmail.com> writes:

> Dominik Schrempf <dominik.schrempf@gmail.com> writes:
>
>> whenever I have a Haskell source code block in my Org mode file, and I execute
>> =org-lint=, I get the following error:
>
> Confirmed.
>
> Can you try with the attached patch?
>
> Best,
> Ihor
>
> [2. text/x-diff; 0001-Fix-org-babel-header-args-haskell-not-being-an-alist.patch]
> From f640249d08a14bfde417c38274634b88c789d1c7 Mon Sep 17 00:00:00 2001
> Message-Id: <f640249d08a14bfde417c38274634b88c789d1c7.1632208540.git.yantar92@gmail.com>
> From: Ihor Radchenko <yantar92@gmail.com>
> Date: Tue, 21 Sep 2021 15:10:45 +0800
> Subject: [PATCH] Fix org-babel-header-args:haskell not being an alist
>
> * lisp/ob-haskell.el (org-babel-header-args:haskell): The old value of
> the variable was not argument alist, as expected by Org babel code.
>
> Fixes https://orgmode.org/list/87fsty7750.fsf@gmail.com
> ---
>  lisp/ob-haskell.el | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
>
> diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el
> index a6f0e55f7..971e1ce6a 100644
> --- a/lisp/ob-haskell.el
> +++ b/lisp/ob-haskell.el
> @@ -70,7 +70,7 @@ (defcustom org-babel-haskell-compiler "ghc"
>    :package-version '(Org "9.4")
>    :type 'string)
>  
> -(defconst org-babel-header-args:haskell '(compile . :any)
> +(defconst org-babel-header-args:haskell '((compile . :any))
>    "Haskell-specific header arguments.")
>  
>  (defun org-babel-haskell-execute (body params)



^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Org lint and Haskell source code blocks
  2021-09-21  7:27   ` Dominik Schrempf
@ 2021-09-21  8:55     ` Ihor Radchenko
  0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2021-09-21  8:55 UTC (permalink / raw)
  To: Dominik Schrempf; +Cc: Emacs Org Mode Mailing List

Dominik Schrempf <dominik.schrempf@gmail.com> writes:

> Thank you, org-lint works just fine after applying your patch!

The patch is applied to master as c9dc6603a.

Best,
Ihor


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2021-09-21  8:55 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-09-21  6:47 Org lint and Haskell source code blocks Dominik Schrempf
2021-09-21  7:16 ` Ihor Radchenko
2021-09-21  7:27   ` Dominik Schrempf
2021-09-21  8:55     ` Ihor Radchenko

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).