;; Time-stamp: <2019-09-18 23:23:51 (tslil@basingstoke)>

;; -----------------------------------------------------------------------------
;; Haskell

(use-package haskell-mode
  :ensure nil
  :defer t)

(use-package intero
  :ensure nil
  :defer t
  :hook (haskell-mode . (lambda ()
                          (intero-mode)
                          (flycheck-mode -1))))

;; (use-package ghc :ensure t :defer t)

;; (use-package company-ghc :ensure t :defer t)

;; (use-package company-ghci :ensure t :defer t)

;; (use-package shm :ensure t
;;   :functions structured-haskell-mode
;;   :bind (:map shm-map
;;               ("C-c C-s" . shm/case-split)))

;; (use-package haskell-mode
;;   :ensure t
;;   :after  (company-ghc company-ghci shm)
;;   :bind (:map haskell-mode-map
;;               ("[f8]". haskell-navigate-imports)
;;               ("C-c C-c" . haskell-compile)
;;               ("C-c C-z" . haskell-interactive-switch)
;;               ("C-c C-l" . haskell-process-load-file)
;;               ("C-c C-b" . haskell-interactive-switch)
;;               ("C-c C-t" . haskell-process-do-type)
;;               ("C-c C-i" . haskell-process-do-info)
;;               ("C-x C-d" . nil)
;;               ("C-c M-." . nil)
;;               ("C-c C-d" . nil))
;;   :hook ((haskell-interactive-mode . visual-line-mode)
;;          (haskell-mode . (lambda ()
;;                            (subword-mode 1)
;;                            (aggressive-indent-mode -1)
;;                            (require 'shm)
;;                            (require 'shm-case-split)
;;                            (require 'ghc)
;;                            (ghc-init)
;;                            (structured-haskell-mode)
;;                            ;; (haskell-indentation-mode)
;;                            (interactive-haskell-mode)
;;                            (turn-on-haskell-doc-mode)
;;                            (turn-on-haskell-decl-scan)
;;                            (add-to-list 'company-backends 'company-ghc)
;;                            (add-to-list 'company-backends 'company-ghci)
;;                            ;; (turn-on-haskell-unicode-input-method)
;;                            ;; (haskell-mode-stylish-buffer)
;;                            )))
;;   :config
;;   (setq haskell-doc-show-global-types t
;;         haskell-doc-show-prelude t
;;         haskell-doc-show-user-defined t
;;         haskell-doc-show-reserved t
;;         haskell-interactive-mode-eval-pretty t
;;         haskell-process-type 'cabal-repl
;;         company-ghc-show-info t
;;         company-ghc-autoscan t
;;         company-ghc-show-module t
;;         haskell-stylish-on-save t
;;         haskell-process-use-presentation-mode t
;;         haskell-process-suggest-imports t
;;         haskell-process-suggest-hoogle-imports t
;;         haskell-process-show-debug-tips nil))