<commit_before>;;; lang/haskell/autoload.el -*- lexical-binding: t; -*-

;;;###autoload
(defun +haskell/open-repl (&optional arg)
  "Opens a Haskell REPL."
  (interactive "P")
  (display-buffer
   (if (featurep! +intero)
       (intero-repl-buffer arg)
     (haskell-session-interactive-buffer (haskell-session)))))
<commit_msg>lang/haskell: fix +haskell/open-repl<commit_after>;;; lang/haskell/autoload.el -*- lexical-binding: t; -*-

;;;###autoload
(defun +haskell/open-repl (&optional arg)
  "Opens a Haskell REPL."
  (interactive "P")
  (if-let*
      ((window
        (display-buffer
         (if (featurep! +intero)
             (intero-repl-buffer arg)
           (haskell-session-interactive-buffer (haskell-session))))))
      (window-buffer window)
    (error "Failed to display Haskell REPL")))

{'fraction_non_alphanumeric': 0.17369727047146402, 'fraction_numerical': 0.0, 'mean_word_length': 3.2473684210526317, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6063949', 'n_tokens_mistral': 304, 'n_tokens_neox': 287, 'n_words': 58}