Skip to content

Commit 7f37ba5

Browse files
committed
Quick hack to support bangs in fields
Proper fix is to fix haskell-ident-at-point
1 parent c27b9bc commit 7f37ba5

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

haskell-commands.el

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -307,9 +307,12 @@ given a prefix arg."
307307
If PROMPT-VALUE is non-nil, request identifier via mini-buffer."
308308
(interactive "P")
309309
(haskell-process-do-simple-echo
310-
(let ((ident (if prompt-value
311-
(read-from-minibuffer "Info: " (haskell-ident-at-point))
312-
(haskell-ident-at-point)))
310+
(let ((ident (replace-regexp-in-string
311+
"^!\\([A-Z_a-z]\\)"
312+
"\\1"
313+
(if prompt-value
314+
(read-from-minibuffer "Info: " (haskell-ident-at-point))
315+
(haskell-ident-at-point))))
313316
(modname (unless prompt-value
314317
(haskell-utils-parse-import-statement-at-point))))
315318
(if modname

0 commit comments

Comments
 (0)